|
1800
|
How can I highlight somehow the child bars of a summary bar
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 128
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComColor of hoBar to (RGB(240,240,240))
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant hSummary
Get ComAddItem of hoItems "Summary" to hSummary
Send ComAddBar of hoItems hSummary "Project Summary" "1/2/2001" "1/2/2001" "" Nothing
Variant hTask
Get ComInsertItem of hoItems hSummary "Task A" to hTask
Send ComAddBar of hoItems hTask "Task" "1/2/2001" "1/5/2001" "K1" Nothing
Get ComInsertItem of hoItems hSummary "Task B" to hTask
Send ComAddBar of hoItems hTask "Task" "1/4/2001" "1/8/2001" "K2" Nothing
Get ComInsertItem of hoItems hSummary "Task C" to hTask
Send ComAddBar of hoItems hTask "Task" "1/6/2001" "1/10/2001" "K3" Nothing
Set ComExpandItem of hoItems hSummary to True
Send ComDefineSummaryBars of hoItems hSummary "" -1 "<*>"
Set ComItemBar of hoItems hSummary "" OLEexSummaryBarBackColor to 65536
Set ComItemBar of hoItems hSummary "" OLEexSummaryBarBackColorTransparent to 50
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1799
|
How do I change the color for the selected bars, without showing the frame arround
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2002"
Set ComSelBarColor of hoChart to |CI$7f0000ff
Set ComPaneWidth of hoChart False to 48
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "1/2/2002" "1/4/2002" "A" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "1/6/2002" "1/10/2002" "B" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 3")) "Task" "1/11/2002" "1/14/2002" "C" Nothing
Set ComItemBar of hoItems 0 "<A B>" OLEexBarSelected to True
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1798
|
Is it possible to enumerate the activities/bars of critical path
// Occurs when a bar is moved or resized.
Procedure OnComBarResize HITEM llItem Variant llKey
Forward Send OnComBarResize llItem llKey
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComSchedulePDM of hoItems llItem llKey to Nothing
Send Destroy to hoItems
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLevelCount of hoChart to 2
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComPaneWidth of hoChart False to 96
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComDef of hoBar OLEexBarCaption to "<%=int(%269) > 0 ? (`<b>` + %269 + `</b>`) : ``%>"
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Variant hSummary1
Get ComAddItem of hoItems1 "Summary" to hSummary1
Set ComItemBold of hoItems1 hSummary1 to True
Send ComAddBar of hoItems1 hSummary1 "Summary" "1/2/2001" "1/2/2001" "sum" Nothing
Variant h1
Get ComAddItem of hoItems1 "Task 1" to h1
Send ComAddBar of hoItems1 h1 "Task" "1/2/2001" "1/4/2001" Nothing Nothing
Send ComDefineSummaryBars of hoItems1 hSummary1 "sum" h1 ""
Variant h2
Get ComAddItem of hoItems1 "Task 2" to h2
Send ComAddBar of hoItems1 h2 "Task" "1/2/2001" "1/4/2001" Nothing Nothing
Send ComDefineSummaryBars of hoItems1 hSummary1 "sum" h2 ""
Send ComAddLink of hoItems1 "L1" h1 "" h2 ""
Variant h3
Get ComAddItem of hoItems1 "Task 3" to h3
Send ComAddBar of hoItems1 h3 "Task" "1/2/2001" "1/4/2001" Nothing Nothing
Send ComDefineSummaryBars of hoItems1 hSummary1 "sum" h3 ""
Send ComAddLink of hoItems1 "L2" h2 "" h3 ""
Variant h4
Get ComAddItem of hoItems1 "Task 4" to h4
Send ComAddBar of hoItems1 h4 "Task" "1/2/2001" "1/4/2001" Nothing Nothing
Send ComDefineSummaryBars of hoItems1 hSummary1 "sum" h4 ""
Send ComAddLink of hoItems1 "L3" h1 "" h4 ""
Set ComDefSchedulePDM of hoItems1 OLEexPDMCriticalPathBarColor to 65280
Get ComSchedulePDM of hoItems1 h1 "" to Nothing
Send Destroy to hoItems1
Send ComEndUpdate
End_Procedure
|
|
1797
|
How can I add a SF link
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "12/25/2000"
Set ComPaneWidth of hoChart False to 48
Set ComLevelCount of hoChart to 2
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Task 1" to h1
Send ComAddBar of hoItems h1 "Task" "1/2/2001" "1/4/2001" "K1" Nothing
Variant h2
Get ComAddItem of hoItems "Task 2" to h2
Send ComAddBar of hoItems h2 "Task" "1/2/2001" "1/5/2001" "K2" Nothing
Variant h3
Get ComAddItem of hoItems "Task 3" to h3
Send ComAddBar of hoItems h3 "Task" "1/2/2001" "1/5/2001" "K3" Nothing
Variant h4
Get ComAddItem of hoItems "Task 4" to h4
Send ComAddBar of hoItems h4 "Task" "1/2/2001" "1/5/2001" "K4" Nothing
Variant h5
Get ComAddItem of hoItems "Task 5" to h5
Send ComAddBar of hoItems h5 "Task" "1/2/2001" "1/5/2001" "K5" Nothing
Send ComAddLink of hoItems "L1" h1 "K1" h2 "K2"
Send ComAddLink of hoItems "L2" h2 "K2" h3 "K3"
Send ComAddLink of hoItems "L3" h3 "K3" h4 "K4"
Send ComAddLink of hoItems "L4" h4 "K4" h5 "K5"
Set ComLink of hoItems "L4" OLEexLinkStartPos to 0
Set ComLink of hoItems "L4" OLEexLinkEndPos to 2
Set ComLink of hoItems "L4" OLEexLinkColor to 65280
Get ComSchedulePDM of hoItems 0 "K5" to Nothing
Send Destroy to hoItems
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComShowLinks of hoChart1 to OLEexShowExtendedLinks
Send Destroy to hoChart1
Send ComEndUpdate
End_Procedure
|
|
1796
|
How do I get the Start and End date of a bar
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Set ComDebug to True
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "9/20/2006"
Set ComLevelCount of hoChart to 2
Set ComPaneWidth of hoChart False to 96
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "9/21/2006" "9/24/2006" "K1" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "9/22/2006" "9/25/2006" "K2" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 3")) "Task" "9/23/2006" "9/26/2006" "K3" Nothing
Variant h
Get ComItemByIndex of hoItems 1 to h
Set ComItemBold of hoItems h to True
Showln "Start of " (ComFirstItemBar(hoItems,h)) (ComItemBar(hoItems,h,(ComFirstItemBar(hoItems,h)),OLEexBarStart))
Showln "End of " (ComFirstItemBar(hoItems,h)) (ComItemBar(hoItems,h,(ComFirstItemBar(hoItems,h)),OLEexBarEnd))
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1795
|
I haven't found options to change/localize (in German, or my current regional settings) the captions/text/strings ( dates, tooltip ) that shows in the chart area (method 2)
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstWeekDay of hoChart to (ComLocFirstWeekDay(hoChart))
Set ComMonthNames of hoChart to (ComLocMonthNames(hoChart))
Set ComWeekDays of hoChart to (ComLocWeekDays(hoChart))
Set ComAMPM of hoChart to (ComLocAMPM(hoChart))
Set ComLevelCount of hoChart to 2
Set ComPaneWidth of hoChart False to 0
Set ComUnitScale of hoChart to OLEexDay
Send Destroy to hoChart
End_Procedure
|
|
1794
|
Is it possible to change caption of the print and print preview, as it just says "Untitled Document", but I cant find the code that writes this caption
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Task 1" to h1
Send ComAddBar of hoItems h1 "Task" "1/2/2001" "1/4/2001" "K1" Nothing
Variant h2
Get ComAddItem of hoItems "Task 2" to h2
Send ComAddBar of hoItems h2 "Task" "1/5/2001" "1/7/2001" "K2" Nothing
Send ComAddLink of hoItems "L1" h1 "K1" h2 "K2"
Send Destroy to hoItems
Send ComEndUpdate
Handle hoPrint
Get Create (RefClass(cComPrint)) to hoPrint // Import the 'ExPrint 1.0 Control Library' library
Set ComCaption of hoPrint to "This is your new caption for print and print preview"
Set ComAutoRelease of hoPrint to False
Set ComPrintExt of hoPrint to (pvComObject(Self))
Send ComPreview of hoPrint
Send Destroy to hoPrint
End_Procedure
|
|
1793
|
Is it possible to specify the A4 paper size for the print preview
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Task 1" to h1
Send ComAddBar of hoItems h1 "Task" "1/2/2001" "1/4/2001" "K1" Nothing
Variant h2
Get ComAddItem of hoItems "Task 2" to h2
Send ComAddBar of hoItems h2 "Task" "1/5/2001" "1/7/2001" "K2" Nothing
Send ComAddLink of hoItems "L1" h1 "K1" h2 "K2"
Send Destroy to hoItems
Send ComEndUpdate
Handle hoPrint
Get Create (RefClass(cComPrint)) to hoPrint // Import the 'ExPrint 1.0 Control Library' library
Set ComSettings of hoPrint OLEexPaperSize to 9
Set ComAutoRelease of hoPrint to False
Set ComPrintExt of hoPrint to (pvComObject(Self))
Send ComPreview of hoPrint
Send Destroy to hoPrint
End_Procedure
|
|
1792
|
Is it possible to tell the print preview to open up in "landscape mode" by default, not in "portrait mode"
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Task 1" to h1
Send ComAddBar of hoItems h1 "Task" "1/2/2001" "1/4/2001" "K1" Nothing
Variant h2
Get ComAddItem of hoItems "Task 2" to h2
Send ComAddBar of hoItems h2 "Task" "1/5/2001" "1/7/2001" "K2" Nothing
Send ComAddLink of hoItems "L1" h1 "K1" h2 "K2"
Send Destroy to hoItems
Send ComEndUpdate
Handle hoPrint
Get Create (RefClass(cComPrint)) to hoPrint // Import the 'ExPrint 1.0 Control Library' library
Set ComPageOrientation of hoPrint to OLEexLandscape
Set ComAutoRelease of hoPrint to False
Set ComPrintExt of hoPrint to (pvComObject(Self))
Send ComPreview of hoPrint
Send Destroy to hoPrint
End_Procedure
|
|
1791
|
How do I prevent a caption outside the bar from overlapping other bars
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComScrollBySingleLine to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComPaneWidth of hoChart False to 48
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Get ComCopy of hoBars "Task" "Default-Task" to Nothing
Send Destroy to hoBars
Variant voBars1
Get ComBars of hoChart to voBars1
Handle hoBars1
Get Create (RefClass(cComBars)) to hoBars1
Set pvComObject of hoBars1 to voBars1
Variant voBar
Get ComItem of hoBars1 "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComOverlaidType of hoBar to (OLEexOverlaidBarsIncludeCaption + OLEexOverlaidBarsStackAutoArrange + OLEexOverlaidBarsStack)
Send Destroy to hoBar
Send Destroy to hoBars1
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "A1" "task"
Set ComItemBar of hoItems h "A1" OLEexBarHAlignCaption to 18
Send ComAddBar of hoItems h "Task" "1/6/2001" "1/10/2001" "A2" "task"
Set ComItemBar of hoItems h "A2" OLEexBarHAlignCaption to 16
Get ComAddItem of hoItems "Task 2" to h
Send ComAddBar of hoItems h "Default-Task" "1/2/2001" "1/4/2001" "A1" "task"
Set ComItemBar of hoItems h "A1" OLEexBarHAlignCaption to 18
Send ComAddBar of hoItems h "Default-Task" "1/6/2001" "1/10/2001" "A2" "task"
Set ComItemBar of hoItems h "A2" OLEexBarHAlignCaption to 16
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1790
|
How do I clip/hide/align the bar's extra-caption/text based on the bar's size/width/length
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Clip" to Nothing
Send Destroy to hoColumns
Set ComScrollBySingleLine to True
Set ComDrawGridLines to OLEexRowLines
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComAllowResizeChart of hoChart to (OLEexAllowResizeChartMiddle + OLEexAllowResizeChartHeader)
Set ComDrawGridLines of hoChart to OLEexRowLines
Set ComFirstVisibleDate of hoChart to "12/23/2000"
Set ComLevelCount of hoChart to 2
Set ComPaneWidth of hoChart False to 216
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComPattern of hoBar to OLEexPatternBox
Set ComColor of hoBar to (RGB(164,164,164))
Set ComStartColor of hoBar to (RGB(240,240,240))
Set ComEndColor of hoBar to (ComStartColor(hoBar))
Set ComOverlaidType of hoBar to (OLEexOverlaidBarsIncludeCaption + OLEexOverlaidBarsStackAutoArrange + OLEexOverlaidBarsStack)
Set ComHeight of hoBar to 15
Send Destroy to hoBar
Send Destroy to hoBars
Set ComMinUnitWidth of hoChart to (ComUnitWidth(hoChart))
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "no clip, (0-2)" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "K1" Nothing
Set ComItemBar of hoItems h "K1" OLEexBarExtraCaption to "no clip, right(<b>2</b>)"
Set ComItemBar of hoItems h "K1" OLEexBarExtraCaptionHAlign to 2
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "K2" Nothing
Set ComItemBar of hoItems h "K2" OLEexBarExtraCaption to "no clip, center(<b>1</b>)"
Set ComItemBar of hoItems h "K2" OLEexBarExtraCaptionHAlign to 1
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "K3" ""
Set ComItemBar of hoItems h "K3" OLEexBarExtraCaption to "no clip, left(<b>0</b>)"
Set ComItemBar of hoItems h "K3" OLEexBarExtraCaptionHAlign to 0
Get ComAddItem of hoItems "clip, inside (3-5)" to h
Send ComAddBar of hoItems h "Task" "12/28/2000" "1/8/2001" "K1" Nothing
Set ComItemBar of hoItems h "K1" OLEexBarExtraCaption to "clip, inside, right(<b>5</b>)"
Set ComItemBar of hoItems h "K1" OLEexBarExtraCaptionHAlign to 5
Send ComAddBar of hoItems h "Task" "12/28/2000" "1/8/2001" "K2" Nothing
Set ComItemBar of hoItems h "K2" OLEexBarExtraCaption to "clip, inside, center(<b>4</b>)"
Set ComItemBar of hoItems h "K2" OLEexBarExtraCaptionHAlign to 4
Send ComAddBar of hoItems h "Task" "12/28/2000" "1/8/2001" "K3" Nothing
Set ComItemBar of hoItems h "K3" OLEexBarExtraCaption to "clip, inside, left(<b>3</b>)"
Set ComItemBar of hoItems h "K3" OLEexBarExtraCaptionHAlign to 3
Get ComAddItem of hoItems "hide on min width, clip if not fit, inside (6-8)" to h
Send ComAddBar of hoItems h "Task" "12/26/2000" "1/10/2001" "K1" Nothing
Set ComItemBar of hoItems h "K1" OLEexBarExtraCaption to "hide on min width, clip if not fit, inside, right(<b>8</b>)"
Set ComItemBar of hoItems h "K1" OLEexBarExtraCaptionHAlign to 8
Send ComAddBar of hoItems h "Task" "12/26/2000" "1/10/2001" "K2" Nothing
Set ComItemBar of hoItems h "K2" OLEexBarExtraCaption to "hide on min width, clip if not fit, inside, center(<b>7</b>)"
Set ComItemBar of hoItems h "K2" OLEexBarExtraCaptionHAlign to 7
Send ComAddBar of hoItems h "Task" "12/26/2000" "1/10/2001" "K3" Nothing
Set ComItemBar of hoItems h "K3" OLEexBarExtraCaption to "hide on min width, clip if not fit, inside, left(<b>6</b>)"
Set ComItemBar of hoItems h "K3" OLEexBarExtraCaptionHAlign to 6
Get ComAddItem of hoItems "hide if not fit, no clip, inside (9-11)" to h
Send ComAddBar of hoItems h "Task" "12/28/2000" "1/8/2001" "K1" Nothing
Set ComItemBar of hoItems h "K1" OLEexBarExtraCaption to "hide if not fit, no clip, inside, right(<b>11</b>)"
Set ComItemBar of hoItems h "K1" OLEexBarExtraCaptionHAlign to 11
Send ComAddBar of hoItems h "Task" "12/28/2000" "1/8/2001" "K2" Nothing
Set ComItemBar of hoItems h "K2" OLEexBarExtraCaption to "hide if not fit, no clip, center(<b>10</b>)"
Set ComItemBar of hoItems h "K2" OLEexBarExtraCaptionHAlign to 10
Send ComAddBar of hoItems h "Task" "12/28/2000" "1/8/2001" "K3" Nothing
Set ComItemBar of hoItems h "K3" OLEexBarExtraCaption to "hide if not fit, no clip, inside, left(<b>9</b>)"
Set ComItemBar of hoItems h "K3" OLEexBarExtraCaptionHAlign to 9
Get ComAddItem of hoItems "no clip, inside, outside (12-14)" to h
Send ComAddBar of hoItems h "Task" "12/28/2000" "1/8/2001" "K1" Nothing
Set ComItemBar of hoItems h "K1" OLEexBarExtraCaption to "no clip, inside, outside, right(<b>14</b>)"
Set ComItemBar of hoItems h "K1" OLEexBarExtraCaptionHAlign to 14
Send ComAddBar of hoItems h "Task" "12/28/2000" "1/8/2001" "K2" Nothing
Set ComItemBar of hoItems h "K2" OLEexBarExtraCaption to "no clip, inside, outside, center(<b>13</b>)"
Set ComItemBar of hoItems h "K2" OLEexBarExtraCaptionHAlign to 13
Send ComAddBar of hoItems h "Task" "12/28/2000" "1/8/2001" "K3" Nothing
Set ComItemBar of hoItems h "K3" OLEexBarExtraCaption to "no clip, inside, outside, left(<b>12</b>)"
Set ComItemBar of hoItems h "K3" OLEexBarExtraCaptionHAlign to 12
Get ComAddItem of hoItems "no clip, outside (16-18)" to h
Send ComAddBar of hoItems h "Task" "12/30/2000" "1/6/2001" "K1" Nothing
Set ComItemBar of hoItems h "K1" OLEexBarExtraCaption to "no clip, outside, right(<b>18</b>)"
Set ComItemBar of hoItems h "K1" OLEexBarExtraCaptionHAlign to 18
Send ComAddBar of hoItems h "Task" "12/30/2000" "1/6/2001" "K2" Nothing
Set ComItemBar of hoItems h "K2" OLEexBarExtraCaption to "no clip, outside, center(<b>17</b>)"
Set ComItemBar of hoItems h "K2" OLEexBarExtraCaptionHAlign to 17
Send ComAddBar of hoItems h "Task" "12/30/2000" "1/6/2001" "K3" Nothing
Set ComItemBar of hoItems h "K3" OLEexBarExtraCaption to "no clip, outside, left(<b>16</b>)"
Set ComItemBar of hoItems h "K3" OLEexBarExtraCaptionHAlign to 16
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1789
|
What options do I have to show the links between bars (rectangular SEV, starts vertically, ends vertically)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAntiAliasing to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComPaneWidth of hoChart False to 128
Set ComNonworkingDays of hoChart to 0
Set ComLinksWidth of hoChart to 2
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "" to Nothing
Variant h3
Get ComAddItem of hoItems "Task 3" to h3
Get ComAddItem of hoItems "" to Nothing
Send ComAddBar of hoItems h3 "Task" "1/13/2001" "1/15/2001" "K3" Nothing
Get ComAddItem of hoItems "Task 1" to h1
Get ComAddItem of hoItems "" to Nothing
Send ComAddBar of hoItems h1 "Task" "1/2/2001" "1/4/2001" "K1" Nothing
Get ComAddItem of hoItems "Task 2" to h2
Send ComAddBar of hoItems h2 "Task" "1/7/2001" "1/9/2001" "K2" Nothing
Get ComAddItem of hoItems "" to Nothing
Send ComAddLink of hoItems "L1" h1 "K1" h2 "K2"
Send ComAddLink of hoItems "L2" h2 "K2" h3 "K3"
Set ComLink of hoItems "<*>" OLEexLinkShowRound to 5
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1788
|
What options do I have to show the links between bars (rectangular SV, starts vertically, ends horizontally)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAntiAliasing to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComPaneWidth of hoChart False to 128
Set ComNonworkingDays of hoChart to 0
Set ComLinksWidth of hoChart to 2
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "" to Nothing
Variant h3
Get ComAddItem of hoItems "Task 3" to h3
Get ComAddItem of hoItems "" to Nothing
Send ComAddBar of hoItems h3 "Task" "1/13/2001" "1/15/2001" "K3" Nothing
Get ComAddItem of hoItems "Task 1" to h1
Get ComAddItem of hoItems "" to Nothing
Send ComAddBar of hoItems h1 "Task" "1/2/2001" "1/4/2001" "K1" Nothing
Get ComAddItem of hoItems "Task 2" to h2
Send ComAddBar of hoItems h2 "Task" "1/7/2001" "1/9/2001" "K2" Nothing
Get ComAddItem of hoItems "" to Nothing
Send ComAddLink of hoItems "L1" h1 "K1" h2 "K2"
Send ComAddLink of hoItems "L2" h2 "K2" h3 "K3"
Set ComLink of hoItems "<*>" OLEexLinkShowRound to 4
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1787
|
What options do I have to show the links between bars (rectangular EV, starts horizontally, ends vertically)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAntiAliasing to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComPaneWidth of hoChart False to 128
Set ComNonworkingDays of hoChart to 0
Set ComLinksWidth of hoChart to 2
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "" to Nothing
Variant h3
Get ComAddItem of hoItems "Task 3" to h3
Get ComAddItem of hoItems "" to Nothing
Send ComAddBar of hoItems h3 "Task" "1/13/2001" "1/15/2001" "K3" Nothing
Get ComAddItem of hoItems "Task 1" to h1
Get ComAddItem of hoItems "" to Nothing
Send ComAddBar of hoItems h1 "Task" "1/2/2001" "1/4/2001" "K1" Nothing
Get ComAddItem of hoItems "Task 2" to h2
Send ComAddBar of hoItems h2 "Task" "1/7/2001" "1/9/2001" "K2" Nothing
Get ComAddItem of hoItems "" to Nothing
Send ComAddLink of hoItems "L1" h1 "K1" h2 "K2"
Send ComAddLink of hoItems "L2" h2 "K2" h3 "K3"
Set ComLink of hoItems "<*>" OLEexLinkShowRound to 3
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1786
|
What options do I have to show the links between bars (straight)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAntiAliasing to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComPaneWidth of hoChart False to 128
Set ComNonworkingDays of hoChart to 0
Set ComLinksWidth of hoChart to 2
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "" to Nothing
Variant h3
Get ComAddItem of hoItems "Task 3" to h3
Get ComAddItem of hoItems "" to Nothing
Send ComAddBar of hoItems h3 "Task" "1/13/2001" "1/15/2001" "K3" Nothing
Get ComAddItem of hoItems "Task 1" to h1
Get ComAddItem of hoItems "" to Nothing
Send ComAddBar of hoItems h1 "Task" "1/2/2001" "1/4/2001" "K1" Nothing
Get ComAddItem of hoItems "Task 2" to h2
Send ComAddBar of hoItems h2 "Task" "1/7/2001" "1/9/2001" "K2" Nothing
Get ComAddItem of hoItems "" to Nothing
Send ComAddLink of hoItems "L1" h1 "K1" h2 "K2"
Send ComAddLink of hoItems "L2" h2 "K2" h3 "K3"
Set ComLink of hoItems "<*>" OLEexLinkShowRound to 2
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1785
|
What options do I have to show the links between bars (direct)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAntiAliasing to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComPaneWidth of hoChart False to 128
Set ComNonworkingDays of hoChart to 0
Set ComLinksWidth of hoChart to 2
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "" to Nothing
Variant h3
Get ComAddItem of hoItems "Task 3" to h3
Get ComAddItem of hoItems "" to Nothing
Send ComAddBar of hoItems h3 "Task" "1/13/2001" "1/15/2001" "K3" Nothing
Get ComAddItem of hoItems "Task 1" to h1
Get ComAddItem of hoItems "" to Nothing
Send ComAddBar of hoItems h1 "Task" "1/2/2001" "1/4/2001" "K1" Nothing
Get ComAddItem of hoItems "Task 2" to h2
Send ComAddBar of hoItems h2 "Task" "1/7/2001" "1/9/2001" "K2" Nothing
Get ComAddItem of hoItems "" to Nothing
Send ComAddLink of hoItems "L1" h1 "K1" h2 "K2"
Send ComAddLink of hoItems "L2" h2 "K2" h3 "K3"
Set ComLink of hoItems "<*>" OLEexLinkShowRound to 1
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1784
|
What options do I have to show the links between bars (round)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAntiAliasing to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComPaneWidth of hoChart False to 128
Set ComNonworkingDays of hoChart to 0
Set ComLinksWidth of hoChart to 2
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "" to Nothing
Variant h3
Get ComAddItem of hoItems "Task 3" to h3
Get ComAddItem of hoItems "" to Nothing
Send ComAddBar of hoItems h3 "Task" "1/13/2001" "1/15/2001" "K3" Nothing
Get ComAddItem of hoItems "Task 1" to h1
Get ComAddItem of hoItems "" to Nothing
Send ComAddBar of hoItems h1 "Task" "1/2/2001" "1/4/2001" "K1" Nothing
Get ComAddItem of hoItems "Task 2" to h2
Send ComAddBar of hoItems h2 "Task" "1/7/2001" "1/9/2001" "K2" Nothing
Get ComAddItem of hoItems "" to Nothing
Send ComAddLink of hoItems "L1" h1 "K1" h2 "K2"
Send ComAddLink of hoItems "L2" h2 "K2" h3 "K3"
Set ComLink of hoItems "<*>" OLEexLinkShowRound to -1
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1783
|
What options do I have to show the links between bars (rectangular, default)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAntiAliasing to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComPaneWidth of hoChart False to 128
Set ComNonworkingDays of hoChart to 0
Set ComLinksWidth of hoChart to 2
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "" to Nothing
Variant h3
Get ComAddItem of hoItems "Task 3" to h3
Get ComAddItem of hoItems "" to Nothing
Send ComAddBar of hoItems h3 "Task" "1/13/2001" "1/15/2001" "K3" Nothing
Get ComAddItem of hoItems "Task 1" to h1
Get ComAddItem of hoItems "" to Nothing
Send ComAddBar of hoItems h1 "Task" "1/2/2001" "1/4/2001" "K1" Nothing
Get ComAddItem of hoItems "Task 2" to h2
Send ComAddBar of hoItems h2 "Task" "1/7/2001" "1/9/2001" "K2" Nothing
Get ComAddItem of hoItems "" to Nothing
Send ComAddLink of hoItems "L1" h1 "K1" h2 "K2"
Send ComAddLink of hoItems "L2" h2 "K2" h3 "K3"
Set ComLink of hoItems "<*>" OLEexLinkShowRound to 0
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1782
|
I have a question about whether the control has the functionality to add two bars on the same item, as one would correspond to the item bar and another bar their progress, but progress is required to show dividedly at different times outside the activity bar item
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Set ComBackColorLevelHeader to (ComBackColor(Self))
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLevelCount of hoChart to 2
Set ComFirstVisibleDate of hoChart to "9/20/2006"
Set ComPaneWidth of hoChart False to 64
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComCopy of hoBars "Progress" "TProgressD" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComDef of hoBar OLEexBarHAlignCaption to 18
Set ComShape of hoBar to OLEexShapeThinDown
Send Destroy to hoBar
Send Destroy to hoBars
Variant voBars1
Get ComBars of hoChart to voBars1
Handle hoBars1
Get Create (RefClass(cComBars)) to hoBars1
Set pvComObject of hoBars1 to voBars1
Variant voBar1
Get ComCopy of hoBars1 "Progress" "TProgressC" to voBar1
Handle hoBar1
Get Create (RefClass(cComBar)) to hoBar1
Set pvComObject of hoBar1 to voBar1
Set ComDef of hoBar1 OLEexBarHAlignCaption to 18
Send Destroy to hoBar1
Send Destroy to hoBars1
Variant voBars2
Get ComBars of hoChart to voBars2
Handle hoBars2
Get Create (RefClass(cComBars)) to hoBars2
Set pvComObject of hoBars2 to voBars2
Variant voBar2
Get ComCopy of hoBars2 "Progress" "TProgressU" to voBar2
Handle hoBar2
Get Create (RefClass(cComBar)) to hoBar2
Set pvComObject of hoBar2 to voBar2
Set ComDef of hoBar2 OLEexBarHAlignCaption to 18
Set ComShape of hoBar2 to OLEexShapeThinUp
Send Destroy to hoBar2
Send Destroy to hoBars2
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task" to h
Send ComAddBar of hoItems h "Task" "9/25/2006" "9/30/2006" "T1" Nothing
Send ComAddBar of hoItems h "TProgressU" "9/25/2006" "10/4/2006" "TP1" Nothing
Send ComGroupBars of hoItems h "T1" True h "TP1" True 3 Nothing
Set ComItemBar of hoItems h "TP1" OLEexBarCaption to "<font ;6>progress up"
Get ComAddItem of hoItems "Task" to h
Send ComAddBar of hoItems h "Task" "9/26/2006" "10/1/2006" "T2" Nothing
Send ComAddBar of hoItems h "TProgressC" "9/26/2006" "10/5/2006" "TP2" Nothing
Send ComGroupBars of hoItems h "T2" True h "TP2" True 3 Nothing
Set ComItemBar of hoItems h "TP2" OLEexBarCaption to "<font ;6>progress center"
Get ComAddItem of hoItems "Task" to h
Send ComAddBar of hoItems h "Task" "9/25/2006" "9/30/2006" "T3" Nothing
Send ComAddBar of hoItems h "TProgressD" "9/25/2006" "10/6/2006" "TP3" Nothing
Send ComGroupBars of hoItems h "T3" True h "TP3" True 3 Nothing
Set ComItemBar of hoItems h "TP3" OLEexBarCaption to "<font ;6>progress down"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1781
|
I have a column of date-type, the question is how can I move the associated bar, instead of resizing it (summary, inclusive, working)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComMarkSearchColumn to False
Set ComIndent to 11
Set ComHasLines to OLEexSolidLine
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComAllowCellValueToItemBar of hoItems to True
Send Destroy to hoItems
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Variant voColumn
Get ComAdd of hoColumns "Start" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 544
Variant voEditor
Get ComEditor of hoColumn to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComEditType of hoEditor to OLEDateType
Send Destroy to hoEditor
Set ComLevelKey of hoColumn to 1
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "End" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 546
Variant voEditor1
Get ComEditor of hoColumn1 to voEditor1
Handle hoEditor1
Get Create (RefClass(cComEditor)) to hoEditor1
Set pvComObject of hoEditor1 to voEditor1
Set ComEditType of hoEditor1 to OLEDateType
Send Destroy to hoEditor1
Set ComLevelKey of hoColumn1 to 1
Send Destroy to hoColumn1
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "9/20/2006"
Set ComAllowLinkBars of hoChart to False
Set ComAllowCreateBar of hoChart to OLEexNoCreateBar
Set ComLevelCount of hoChart to 2
Set ComPaneWidth of hoChart False to 224
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComAdd of hoBars "Underline" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComColor of hoBar to (RGB(0,0,255))
Set ComShape of hoBar to OLEexShapeThinDown
Send Destroy to hoBar
Variant voBar1
Get ComAdd of hoBars "Task:Underline" to voBar1
Handle hoBar1
Get Create (RefClass(cComBar)) to hoBar1
Set pvComObject of hoBar1 to voBar1
Set ComShortcut of hoBar1 to "T"
Set ComDef of hoBar1 OLEexBarKeepWorkingCount to True
Send Destroy to hoBar1
Send Destroy to hoBars
Send Destroy to hoChart
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Variant h
Get ComAddItem of hoItems1 "Project" to h
Send ComAddBar of hoItems1 h "Summary" "9/21/2006" "10/3/2006" Nothing Nothing
Variant h1
Get ComInsertItem of hoItems1 h "Task 1" to h1
Send ComAddBar of hoItems1 h1 "T" "9/21/2006" "9/24/2006" Nothing Nothing
Variant h2
Get ComInsertItem of hoItems1 h "Task 2" to h2
Send ComAddBar of hoItems1 h2 "T" "9/24/2006" "9/28/2006" Nothing Nothing
Variant h3
Get ComInsertItem of hoItems1 h "Task 3" to h3
Send ComAddBar of hoItems1 h3 "T" "9/28/2006" "10/3/2006" Nothing Nothing
Send ComDefineSummaryBars of hoItems1 h "" h1 ""
Send ComDefineSummaryBars of hoItems1 h "" h2 ""
Send ComDefineSummaryBars of hoItems1 h "" h3 ""
Set ComExpandItem of hoItems1 h to True
Set ComItemBold of hoItems1 h to True
Set ComItemBar of hoItems1 h "" OLEexBarMoveStart to "9/22/2006"
Send Destroy to hoItems1
Send ComEndUpdate
End_Procedure
|
|
1780
|
I have a column of date-type, the question is how can I move the associated bar, instead of resizing it (summary)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComMarkSearchColumn to False
Set ComIndent to 11
Set ComHasLines to OLEexSolidLine
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComAllowCellValueToItemBar of hoItems to True
Send Destroy to hoItems
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Variant voColumn
Get ComAdd of hoColumns "Start" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 544
Variant voEditor
Get ComEditor of hoColumn to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComEditType of hoEditor to OLEDateType
Send Destroy to hoEditor
Set ComLevelKey of hoColumn to 1
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "End" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 545
Variant voEditor1
Get ComEditor of hoColumn1 to voEditor1
Handle hoEditor1
Get Create (RefClass(cComEditor)) to hoEditor1
Set pvComObject of hoEditor1 to voEditor1
Set ComEditType of hoEditor1 to OLEDateType
Send Destroy to hoEditor1
Set ComLevelKey of hoColumn1 to 1
Send Destroy to hoColumn1
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "9/20/2006"
Set ComAllowLinkBars of hoChart to False
Set ComAllowCreateBar of hoChart to OLEexNoCreateBar
Set ComLevelCount of hoChart to 2
Set ComPaneWidth of hoChart False to 224
Send Destroy to hoChart
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Variant h
Get ComAddItem of hoItems1 "Project" to h
Send ComAddBar of hoItems1 h "Summary" "9/21/2006" "10/3/2006" Nothing Nothing
Variant h1
Get ComInsertItem of hoItems1 h "Task 1" to h1
Send ComAddBar of hoItems1 h1 "Task" "9/21/2006" "9/24/2006" Nothing Nothing
Variant h2
Get ComInsertItem of hoItems1 h "Task 2" to h2
Send ComAddBar of hoItems1 h2 "Task" "9/24/2006" "9/28/2006" Nothing Nothing
Variant h3
Get ComInsertItem of hoItems1 h "Task 3" to h3
Send ComAddBar of hoItems1 h3 "Task" "9/28/2006" "10/3/2006" Nothing Nothing
Send ComDefineSummaryBars of hoItems1 h "" h1 ""
Send ComDefineSummaryBars of hoItems1 h "" h2 ""
Send ComDefineSummaryBars of hoItems1 h "" h3 ""
Set ComExpandItem of hoItems1 h to True
Set ComItemBold of hoItems1 h to True
Set ComItemBar of hoItems1 h "" OLEexBarMoveStart to "9/22/2006"
Send Destroy to hoItems1
Send ComEndUpdate
End_Procedure
|
|
1779
|
Is it possible to programmatically move all bars of specified key to end at specified date (inclusive)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComDebug to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComLevelCount of hoChart to 2
Set ComPaneWidth of hoChart False to 48
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task A.1")) "Task" "1/1/2001" "1/6/2001" "A" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task A.2")) "Task" "1/2/2001" "1/7/2001" "A" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task B.1")) "Task" "1/3/2001" "1/8/2001" "B" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task B.2")) "Task" "1/4/2001" "1/9/2001" "B" Nothing
Set ComItemBar of hoItems 0 "<A*>" OLEexBarMoveEndInclusive to "1/2/2001"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1778
|
Is it possible to programmatically move all bars to end at specified date (inclusive)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComDebug to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComLevelCount of hoChart to 2
Set ComPaneWidth of hoChart False to 48
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task A.1")) "Task" "1/1/2001" "1/6/2001" "A" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task A.2")) "Task" "1/2/2001" "1/7/2001" "A" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task B.1")) "Task" "1/3/2001" "1/8/2001" "B" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task B.2")) "Task" "1/4/2001" "1/9/2001" "B" Nothing
Set ComItemBar of hoItems 0 "<*>" OLEexBarMoveEndInclusive to "1/2/2001"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1777
|
Is it possible to programmatically move all bars of specified key to end at specified date
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComDebug to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComLevelCount of hoChart to 2
Set ComPaneWidth of hoChart False to 48
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task A.1")) "Task" "1/1/2001" "1/6/2001" "A" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task A.2")) "Task" "1/2/2001" "1/7/2001" "A" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task B.1")) "Task" "1/3/2001" "1/8/2001" "B" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task B.2")) "Task" "1/4/2001" "1/9/2001" "B" Nothing
Set ComItemBar of hoItems 0 "<A*>" OLEexBarMoveEnd to "1/2/2001"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1776
|
Is it possible to programmatically move all bars to end at specified date
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComDebug to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComLevelCount of hoChart to 2
Set ComPaneWidth of hoChart False to 48
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task A.1")) "Task" "1/1/2001" "1/6/2001" "A" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task A.2")) "Task" "1/2/2001" "1/7/2001" "A" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task B.1")) "Task" "1/3/2001" "1/8/2001" "B" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task B.2")) "Task" "1/4/2001" "1/9/2001" "B" Nothing
Set ComItemBar of hoItems 0 "<*>" OLEexBarMoveEnd to "1/2/2001"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1775
|
Is it possible to programmatically move all bars of specified key to start at specified date
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComDebug to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComLevelCount of hoChart to 2
Set ComPaneWidth of hoChart False to 48
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task A.1")) "Task" "1/1/2001" "1/6/2001" "A" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task A.2")) "Task" "1/2/2001" "1/7/2001" "A" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task B.1")) "Task" "1/3/2001" "1/8/2001" "B" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task B.2")) "Task" "1/4/2001" "1/9/2001" "B" Nothing
Set ComItemBar of hoItems 0 "<A*>" OLEexBarMoveStart to "1/2/2001"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1774
|
Is it possible to programmatically move all bars to start at specified date
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComDebug to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComLevelCount of hoChart to 2
Set ComPaneWidth of hoChart False to 48
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task A.1")) "Task" "1/1/2001" "1/6/2001" "A" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task A.2")) "Task" "1/2/2001" "1/7/2001" "A" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task B.1")) "Task" "1/3/2001" "1/8/2001" "B" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task B.2")) "Task" "1/4/2001" "1/9/2001" "B" Nothing
Set ComItemBar of hoItems 0 "<*>" OLEexBarMoveStart to "1/2/2001"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1773
|
Is it possible to programmatically move all bars of specified key
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComDebug to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComLevelCount of hoChart to 2
Set ComPaneWidth of hoChart False to 48
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task A.1")) "Task" "1/1/2001" "1/6/2001" "A" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task A.2")) "Task" "1/2/2001" "1/7/2001" "A" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task B.1")) "Task" "1/3/2001" "1/8/2001" "B" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task B.2")) "Task" "1/4/2001" "1/9/2001" "B" Nothing
Set ComItemBar of hoItems 0 "<A*>" OLEexBarMove to 2
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1772
|
Is it possible to programmatically move all bars
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComDebug to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComLevelCount of hoChart to 2
Set ComPaneWidth of hoChart False to 48
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task A.1")) "Task" "1/1/2001" "1/6/2001" "A" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task A.2")) "Task" "1/2/2001" "1/7/2001" "A" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task B.1")) "Task" "1/3/2001" "1/8/2001" "B" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task B.2")) "Task" "1/4/2001" "1/9/2001" "B" Nothing
Set ComItemBar of hoItems 0 "<*>" OLEexBarMove to 2
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1771
|
How can I programmatically move a bar, so it ends at specified date (inclusive)
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComLevelCount of hoChart to 2
Set ComPaneWidth of hoChart False to 48
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "1/1/2001" "1/6/2001" "A" Nothing
Set ComItemBar of hoItems h "A" OLEexBarMoveEndInclusive to "1/4/2001"
Send Destroy to hoItems
End_Procedure
|
|
1770
|
How can I programmatically move a bar, so it ends at specified date
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComLevelCount of hoChart to 2
Set ComPaneWidth of hoChart False to 48
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "1/1/2001" "1/6/2001" "A" Nothing
Set ComItemBar of hoItems h "A" OLEexBarMoveEnd to "1/4/2001"
Send Destroy to hoItems
End_Procedure
|
|
1769
|
How can I programmatically move a bar, so it starts at specified date
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComLevelCount of hoChart to 2
Set ComPaneWidth of hoChart False to 48
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "1/1/2001" "1/6/2001" "A" Nothing
Set ComItemBar of hoItems h "A" OLEexBarMoveStart to "1/4/2001"
Send Destroy to hoItems
End_Procedure
|
|
1768
|
I can’t figure out how to control the date and time format (in level 0, 1 and 2) when the user click on the OverviewZoom bottom
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHeaderHeight to 22
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2016"
Set ComPaneWidth of hoChart False to 0
Set ComLevelCount of hoChart to 2
Set ComDrawLevelSeparator of hoChart to OLEexLevelSolidLine
Set ComAllowResizeChart of hoChart to (OLEexAllowResizeChartMiddle + OLEexAllowResizeChartHeader)
Set ComMaxUnitWidth of hoChart to 196
Variant voLevel
Get ComLevel of hoChart 0 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComAlignment of hoLevel to (OLEexHOutside + OLECenterAlignment)
Set ComDrawTickLines of hoLevel to OLEexLevelSolidLine
Send Destroy to hoLevel
Variant voLevel1
Get ComLevel of hoChart 1 to voLevel1
Handle hoLevel1
Get Create (RefClass(cComLevel)) to hoLevel1
Set pvComObject of hoLevel1 to voLevel1
Set ComDrawTickLines of hoLevel1 to (OLEexLevelMiddleLine + OLEexLevelDotLine)
Send ComDrawTickLinesFrom of hoLevel1 0 OLEexLevelSolidLine
Set ComBackColor of hoLevel1 to (RGB(240,240,240))
Send Destroy to hoLevel1
Set ComOverviewVisible of hoChart to OLEexOverviewShowAllVisible
Set ComAllowOverviewZoom of hoChart to OLEexAlwaysZoom
Set ComUnitWidth of hoChart to 24
Set ComLabel of hoChart OLEexSecond to ""
Set ComLabel of hoChart OLEexMinute to ""
Set ComLabel of hoChart OLEexHour to ""
Set ComLabel of hoChart OLEexWeek to ""
Set ComLabel of hoChart OLEexDay to "<font ;6><%d%><|><%d%><|><%d%> <fgcolor=A0A0A0><off -4><%d1%><|><%d%> <fgcolor=A0A0A0><off -4><%d2%><|><%d%> <fgcolor=A0A0A0><off -4><%d3%><|><%d%> <fgcolor=A0A0A0><off -4><%dddd%><||><||>4096"
Set ComUnitScale of hoChart to OLEexDay
Send ComScrollTo of hoChart (ComFirstVisibleDate(hoChart)) 1
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Send ComEndUpdate
End_Procedure
|
|
1767
|
Can I use GroupBars with OverlaidType method
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Set ComDebug to True
Set ComLinesAtRoot to OLEexLinesAtRoot
Set ComScrollBySingleLine to True
Set ComBackColorLevelHeader to (ComBackColor(Self))
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLevelCount of hoChart to 2
Set ComFirstVisibleDate of hoChart to "9/20/2006"
Set ComPaneWidth of hoChart False to 96
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComOverlaidType of hoBar to OLEexOverlaidBarsStack
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Project" to h
Send ComAddBar of hoItems h "Summary" "9/21/2006" "10/4/2006" Nothing Nothing
Variant h1
Get ComInsertItem of hoItems h "Tasks" to h1
Send ComAddBar of hoItems h1 "Task" "9/21/2006" "9/26/2006" "h1" Nothing
Variant h2
Move h1 to h2
Send ComAddBar of hoItems h2 "Task" "9/25/2006" "9/30/2006" "h2" Nothing
Send ComAddLink of hoItems "L1" h1 "h1" h2 "h2"
Variant h3
Move h1 to h3
Send ComAddBar of hoItems h3 "Task" "9/29/2006" "10/4/2006" "h3" Nothing
Send ComAddLink of hoItems "L2" h2 "h2" h3 "h3"
Send ComDefineSummaryBars of hoItems h "" h1 "h1"
Send ComDefineSummaryBars of hoItems h "" h2 "h2"
Send ComDefineSummaryBars of hoItems h "" h3 "h3"
Set ComExpandItem of hoItems h to True
Set ComItemBold of hoItems h to True
Send ComGroupBars of hoItems h1 "h1" False h2 "h2" True 31 "0;5;-1"
Send ComGroupBars of hoItems h2 "h2" False h3 "h3" True 31 "0;5;-1"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1766
|
How do I change the link's lag so I can schedule bars to start later (with nonworking part)
// Occurs when a bar is moving or resizing.
Procedure OnComBarResizing HITEM llItem Variant llKey
Forward Send OnComBarResizing llItem llKey
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComSchedulePDM of hoItems llItem llKey to Nothing
Send Destroy to hoItems
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComDefaultItemHeight to 22
Set ComHeaderHeight to (ComDefaultItemHeight(Self))
Set ComBackColorLevelHeader to (ComBackColor(Self))
Set ComAntiAliasing to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLinksStyle of hoChart to OLEexLinkSolid
Set ComLinksColor of hoChart to (RGB(128,128,128))
Set ComLevelCount of hoChart to 2
Set ComFirstVisibleDate of hoChart to "12/28/2000"
Set ComPaneWidth of hoChart False to 48
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComDef of hoBar OLEexBarKeepWorkingCount to True
Set ComDef of hoBar OLEexBarHAlignCaption to 18
Set ComColor of hoBar to (RGB(0,0,0))
Set ComStartColor of hoBar to (RGB(190,190,190))
Set ComEndColor of hoBar to (ComStartColor(hoBar))
Set ComPattern of hoBar to OLEexPatternBox
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Variant h1
Get ComAddItem of hoItems1 "Task 1" to h1
Send ComAddBar of hoItems1 h1 "Task" "1/2/2001" "1/5/2001" "K1" "FS lag=0 (default)"
Variant h2
Get ComAddItem of hoItems1 "Task 2" to h2
Send ComAddBar of hoItems1 h2 "Task" "1/2/2001" "1/5/2001" "K2" "FS lag=4"
Send ComAddLink of hoItems1 "L1" h1 "K1" h2 "K2"
Variant h3
Get ComAddItem of hoItems1 "Task 3" to h3
Send ComAddBar of hoItems1 h3 "Task" "1/2/2001" "1/5/2001" "K3" "FS lag=-1"
Send ComAddLink of hoItems1 "L2" h2 "K2" h3 "K3"
Set ComLink of hoItems1 "L2" OLEexLinkPDMWorkingDelay to 4
Variant h4
Get ComAddItem of hoItems1 "Task 4" to h4
Send ComAddBar of hoItems1 h4 "Task" "1/2/2001" "1/5/2001" "K4" Nothing
Send ComAddLink of hoItems1 "L3" h3 "K3" h4 "K4"
Set ComLink of hoItems1 "L3" OLEexLinkPDMWorkingDelay to -1
Get ComSchedulePDM of hoItems1 0 "K1" to Nothing
Send Destroy to hoItems1
Send ComEndUpdate
End_Procedure
|
|
1765
|
How do I change the link's lag so I can schedule bars to start later (without nonworking part)
// Occurs when a bar is moving or resizing.
Procedure OnComBarResizing HITEM llItem Variant llKey
Forward Send OnComBarResizing llItem llKey
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComSchedulePDM of hoItems llItem llKey to Nothing
Send Destroy to hoItems
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComDefaultItemHeight to 22
Set ComHeaderHeight to (ComDefaultItemHeight(Self))
Set ComBackColorLevelHeader to (ComBackColor(Self))
Set ComAntiAliasing to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLinksStyle of hoChart to OLEexLinkSolid
Set ComLinksColor of hoChart to (RGB(128,128,128))
Set ComLevelCount of hoChart to 2
Set ComNonworkingDays of hoChart to 0
Set ComFirstVisibleDate of hoChart to "12/28/2000"
Set ComPaneWidth of hoChart False to 48
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComDef of hoBar OLEexBarHAlignCaption to 18
Set ComColor of hoBar to (RGB(0,0,0))
Set ComStartColor of hoBar to (RGB(190,190,190))
Set ComEndColor of hoBar to (ComStartColor(hoBar))
Set ComPattern of hoBar to OLEexPatternBox
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Variant h1
Get ComAddItem of hoItems1 "Task 1" to h1
Send ComAddBar of hoItems1 h1 "Task" "1/2/2001" "1/5/2001" "K1" "FS lag=0 (default)"
Variant h2
Get ComAddItem of hoItems1 "Task 2" to h2
Send ComAddBar of hoItems1 h2 "Task" "1/2/2001" "1/5/2001" "K2" "FS lag=4"
Send ComAddLink of hoItems1 "L1" h1 "K1" h2 "K2"
Variant h3
Get ComAddItem of hoItems1 "Task 3" to h3
Send ComAddBar of hoItems1 h3 "Task" "1/2/2001" "1/5/2001" "K3" "FS lag=-1"
Send ComAddLink of hoItems1 "L2" h2 "K2" h3 "K3"
Set ComLink of hoItems1 "L2" OLEexLinkPDMDelay to 4
Variant h4
Get ComAddItem of hoItems1 "Task 4" to h4
Send ComAddBar of hoItems1 h4 "Task" "1/2/2001" "1/5/2001" "K4" Nothing
Send ComAddLink of hoItems1 "L3" h3 "K3" h4 "K4"
Set ComLink of hoItems1 "L3" OLEexLinkPDMDelay to -1
Get ComSchedulePDM of hoItems1 0 "K1" to Nothing
Send Destroy to hoItems1
Send ComEndUpdate
End_Procedure
|
|
1764
|
Is it possible to select the entire row/line, when user clicks the first column, and select individually the rest of cells, while user clicks any other column
// Occurs after a new Group Item has been inserted to Items collection.
Procedure OnComAddGroupItem HITEM llItem
Forward Send OnComAddGroupItem llItem
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems llItem "Summary" (ComCellValue(hoItems,llItem,2)) (ComCellValue(hoItems,llItem,4)) Nothing Nothing
Send ComDefineSummaryBars of hoItems llItem "" -3 ""
Send Destroy to hoItems
End_Procedure
// Occurs after a new Item has been inserted to Items collection.
Procedure OnComAddItem HITEM llItem
Forward Send OnComAddItem llItem
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Send ComAddBar of hoItems1 llItem "Task" (ComCellValue(hoItems1,llItem,2)) (ComCellValue(hoItems1,llItem,4)) Nothing Nothing
Send Destroy to hoItems1
End_Procedure
// Occurs when the user presses a mouse button.
Procedure OnComMouseDown Short llButton Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY
Forward Send OnComMouseDown llButton llShift llX llY
Variant i
Get ComItemFromPoint -1 -1 c hit to i
Variant v
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComItem of hoColumns c to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Get ComData of hoColumn to v
Send Destroy to hoColumn
Send Destroy to hoColumns
Set ComFullRowSelect to v
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHeaderHeight to 22
Set ComHeaderAppearance to OLEFlat
Set ComBackColorLock to (RGB(240,240,240))
Set ComBackColorHeader to (ComBackColorLock(Self))
Set ComHasLines to OLEexNoLine
Set ComColumnAutoResize to False
Set ComSortBarVisible to False
Set ComAllowGroupBy to True
Set ComReadOnly to OLEexReadOnly
Set ComShowFocusRect to False
Set ComCountLockedColumns to 1
Set ComAutoDrag to OLEexAutoDragScroll
Set ComSingleSort to False
Set ComColumnsAllowSizing to True
Set ComDrawGridLines to OLEexAllLines
Set ComGridLineStyle to OLEexGridLinesSolid
Set ComGridLineColor to (RGB(220,220,220))
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "9/1/1994"
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComLevelCount of hoChart1 to 2
Send Destroy to hoChart1
Variant voChart2
Get ComChart to voChart2
Handle hoChart2
Get Create (RefClass(cComChart)) to hoChart2
Set pvComObject of hoChart2 to voChart2
Set ComPaneWidth of hoChart2 False to 256
Send Destroy to hoChart2
Set ComBackColorSortBar to (ComBackColor(Self))
Set ComColumnAutoResize to False
Variant rs
Get Comcreateobject "ADOR.Recordset" to rs
Send ComOpen "Orders" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb" OLEadOpenStatic OLEadLockOptimistic Nothing
Set ComDataSource to rs
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComItem of hoColumns1 0 to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComData of hoColumn1 to -1
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Set ComLayout to "singlesort="C5:1";multiplesort=" C1:2""
Send ComEndUpdate
End_Procedure
|
|
1763
|
I've also hit a strange problem with the BeforeExpandItem event - the Cancel parameter is declared as const in Delphi when I believe it should be declared as var or out so I can use it to return OleVariant(True) to cancel the operation, or am I missing something, or how can I disable expanding / collapsing the items
// Fired before an item is about to be expanded (collapsed).
Procedure OnComBeforeExpandItem HITEM llItem Variant llCancel
Forward Send OnComBeforeExpandItem llItem llCancel
Set ComEventParam 1 to True
End_Procedure
// Notifies the application once the control fires an event.
Procedure OnComEvent Integer llEventID
Forward Send OnComEvent llEventID
Showln (ComEventParam(Self,-2))
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComLinesAtRoot to OLEexLinesAtRoot
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root A" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Set ComExpandItem of hoItems h to True
Get ComAddItem of hoItems "Root B" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1762
|
Is there any way I can get rid / hide of the vertical blue lines ( today, selected date )
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 128
Set ComLevelCount of hoChart to 2
Set ComMarkSelectDateColor of hoChart to (ComBackColor(hoChart))
Set ComMarkTodayColor of hoChart to (ComBackColor(hoChart))
Send Destroy to hoChart
Send ComEndUpdate
End_Procedure
|
|
1761
|
Is it possible to search for a bar through items only ( not including the locked items )
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComDebug to True
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 128
Set ComLevelCount of hoChart to 2
Set ComFirstVisibleDate of hoChart to "12/31/2015"
Send Destroy to hoChart
Set ComBackColorAlternate to (RGB(250,250,250))
Set ComShowLockedItems to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Find" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellValueFormat to 1
Set ComVisible of hoColumn to False
Set ComFormatColumn of hoColumn to "int(value) = 0 ? `` : ` <fgcolor=FF0000><b>found here ` "
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComColumnsFormatLevel of hoChart1 to "1"
Send Destroy to hoChart1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComLockedItemCount of hoItems OLEexTop to 3
Variant h
Get ComLockedItem of hoItems OLEexTop 0 to h
Set ComCellValue of hoItems h 0 to "locked-top 1"
Send ComAddBar of hoItems h "Task" "1/4/2016" "1/8/2016" "T1" Nothing
Get ComLockedItem of hoItems OLEexTop 1 to h
Set ComCellValue of hoItems h 0 to "locked-top 2"
Send ComAddBar of hoItems h "Task" "1/5/2016" "1/9/2016" "T2" Nothing
Get ComLockedItem of hoItems OLEexTop 2 to h
Set ComSelectItem of hoItems h to False
Set ComItemDivider of hoItems h to 0
Set ComItemHeight of hoItems h to 2
Send ComAddBar of hoItems (ComAddItem(hoItems,"un-locked item 1")) "Task" "1/4/2016" "1/8/2016" "T3" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"un-locked item 2")) "Task" "1/5/2016" "1/9/2016" "T4" Nothing
Set ComLockedItemCount of hoItems OLEexMiddle to 3
Get ComLockedItem of hoItems OLEexMiddle 0 to h
Set ComSelectItem of hoItems h to False
Set ComItemDivider of hoItems h to 0
Set ComItemHeight of hoItems h to 2
Get ComLockedItem of hoItems OLEexMiddle 1 to h
Set ComCellValue of hoItems h 0 to "locked-bottom 1"
Send ComAddBar of hoItems h "Task" "1/4/2016" "1/8/2016" "T5" Nothing
Get ComLockedItem of hoItems OLEexMiddle 2 to h
Set ComCellValue of hoItems h 0 to "locked-bottom 2"
Send ComAddBar of hoItems h "Task" "1/5/2016" "1/9/2016" "T6" Nothing
Send Destroy to hoItems
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComFindBar of hoItems1 "T4" 0 to h
Set ComItemBar of hoItems1 h (ComFirstItemBar(hoItems1,h)) OLEexBarColor to 255
Set ComCellValue of hoItems1 h 1 to h
Send Destroy to hoItems1
Send ComEndUpdate
End_Procedure
|
|
1760
|
Is it possible to search for a bar through bottom-locked-items only
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComDebug to True
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 128
Set ComLevelCount of hoChart to 2
Set ComFirstVisibleDate of hoChart to "12/31/2015"
Send Destroy to hoChart
Set ComBackColorAlternate to (RGB(250,250,250))
Set ComShowLockedItems to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Find" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellValueFormat to 1
Set ComVisible of hoColumn to False
Set ComFormatColumn of hoColumn to "int(value) = 0 ? `` : ` <fgcolor=FF0000><b>found here ` "
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComColumnsFormatLevel of hoChart1 to "1"
Send Destroy to hoChart1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComLockedItemCount of hoItems OLEexTop to 3
Variant h
Get ComLockedItem of hoItems OLEexTop 0 to h
Set ComCellValue of hoItems h 0 to "locked-top 1"
Send ComAddBar of hoItems h "Task" "1/4/2016" "1/8/2016" "T1" Nothing
Get ComLockedItem of hoItems OLEexTop 1 to h
Set ComCellValue of hoItems h 0 to "locked-top 2"
Send ComAddBar of hoItems h "Task" "1/5/2016" "1/9/2016" "T2" Nothing
Get ComLockedItem of hoItems OLEexTop 2 to h
Set ComSelectItem of hoItems h to False
Set ComItemDivider of hoItems h to 0
Set ComItemHeight of hoItems h to 2
Send ComAddBar of hoItems (ComAddItem(hoItems,"un-locked item 1")) "Task" "1/4/2016" "1/8/2016" "T3" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"un-locked item 2")) "Task" "1/5/2016" "1/9/2016" "T4" Nothing
Set ComLockedItemCount of hoItems OLEexMiddle to 3
Get ComLockedItem of hoItems OLEexMiddle 0 to h
Set ComSelectItem of hoItems h to False
Set ComItemDivider of hoItems h to 0
Set ComItemHeight of hoItems h to 2
Get ComLockedItem of hoItems OLEexMiddle 1 to h
Set ComCellValue of hoItems h 0 to "locked-bottom 1"
Send ComAddBar of hoItems h "Task" "1/4/2016" "1/8/2016" "T5" Nothing
Get ComLockedItem of hoItems OLEexMiddle 2 to h
Set ComCellValue of hoItems h 0 to "locked-bottom 2"
Send ComAddBar of hoItems h "Task" "1/5/2016" "1/9/2016" "T6" Nothing
Send Destroy to hoItems
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComFindBar of hoItems1 "T6" -4 to h
Set ComItemBar of hoItems1 h (ComFirstItemBar(hoItems1,h)) OLEexBarColor to 255
Set ComCellValue of hoItems1 h 1 to h
Send Destroy to hoItems1
Send ComEndUpdate
End_Procedure
|
|
1759
|
Is it possible to search for a bar through top-locked-items only
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComDebug to True
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 128
Set ComLevelCount of hoChart to 2
Set ComFirstVisibleDate of hoChart to "12/31/2015"
Send Destroy to hoChart
Set ComBackColorAlternate to (RGB(250,250,250))
Set ComShowLockedItems to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Find" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellValueFormat to 1
Set ComVisible of hoColumn to False
Set ComFormatColumn of hoColumn to "int(value) = 0 ? `` : ` <fgcolor=FF0000><b>found here ` "
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComColumnsFormatLevel of hoChart1 to "1"
Send Destroy to hoChart1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComLockedItemCount of hoItems OLEexTop to 3
Variant h
Get ComLockedItem of hoItems OLEexTop 0 to h
Set ComCellValue of hoItems h 0 to "locked-top 1"
Send ComAddBar of hoItems h "Task" "1/4/2016" "1/8/2016" "T1" Nothing
Get ComLockedItem of hoItems OLEexTop 1 to h
Set ComCellValue of hoItems h 0 to "locked-top 2"
Send ComAddBar of hoItems h "Task" "1/5/2016" "1/9/2016" "T2" Nothing
Get ComLockedItem of hoItems OLEexTop 2 to h
Set ComSelectItem of hoItems h to False
Set ComItemDivider of hoItems h to 0
Set ComItemHeight of hoItems h to 2
Send ComAddBar of hoItems (ComAddItem(hoItems,"un-locked item 1")) "Task" "1/4/2016" "1/8/2016" "T3" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"un-locked item 2")) "Task" "1/5/2016" "1/9/2016" "T4" Nothing
Set ComLockedItemCount of hoItems OLEexMiddle to 3
Get ComLockedItem of hoItems OLEexMiddle 0 to h
Set ComSelectItem of hoItems h to False
Set ComItemDivider of hoItems h to 0
Set ComItemHeight of hoItems h to 2
Get ComLockedItem of hoItems OLEexMiddle 1 to h
Set ComCellValue of hoItems h 0 to "locked-bottom 1"
Send ComAddBar of hoItems h "Task" "1/4/2016" "1/8/2016" "T5" Nothing
Get ComLockedItem of hoItems OLEexMiddle 2 to h
Set ComCellValue of hoItems h 0 to "locked-bottom 2"
Send ComAddBar of hoItems h "Task" "1/5/2016" "1/9/2016" "T6" Nothing
Send Destroy to hoItems
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComFindBar of hoItems1 "T1" -3 to h
Set ComItemBar of hoItems1 h (ComFirstItemBar(hoItems1,h)) OLEexBarColor to 255
Set ComCellValue of hoItems1 h 1 to h
Send Destroy to hoItems1
Send ComEndUpdate
End_Procedure
|
|
1758
|
Is it possible to search for a bar through all locked-items only
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComDebug to True
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 128
Set ComLevelCount of hoChart to 2
Set ComFirstVisibleDate of hoChart to "12/31/2015"
Send Destroy to hoChart
Set ComBackColorAlternate to (RGB(250,250,250))
Set ComShowLockedItems to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Find" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellValueFormat to 1
Set ComVisible of hoColumn to False
Set ComFormatColumn of hoColumn to "int(value) = 0 ? `` : ` <fgcolor=FF0000><b>found here ` "
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComColumnsFormatLevel of hoChart1 to "1"
Send Destroy to hoChart1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComLockedItemCount of hoItems OLEexTop to 3
Variant h
Get ComLockedItem of hoItems OLEexTop 0 to h
Set ComCellValue of hoItems h 0 to "locked-top 1"
Send ComAddBar of hoItems h "Task" "1/4/2016" "1/8/2016" "T1" Nothing
Get ComLockedItem of hoItems OLEexTop 1 to h
Set ComCellValue of hoItems h 0 to "locked-top 2"
Send ComAddBar of hoItems h "Task" "1/5/2016" "1/9/2016" "T2" Nothing
Get ComLockedItem of hoItems OLEexTop 2 to h
Set ComSelectItem of hoItems h to False
Set ComItemDivider of hoItems h to 0
Set ComItemHeight of hoItems h to 2
Send ComAddBar of hoItems (ComAddItem(hoItems,"un-locked item 1")) "Task" "1/4/2016" "1/8/2016" "T3" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"un-locked item 2")) "Task" "1/5/2016" "1/9/2016" "T4" Nothing
Set ComLockedItemCount of hoItems OLEexMiddle to 3
Get ComLockedItem of hoItems OLEexMiddle 0 to h
Set ComSelectItem of hoItems h to False
Set ComItemDivider of hoItems h to 0
Set ComItemHeight of hoItems h to 2
Get ComLockedItem of hoItems OLEexMiddle 1 to h
Set ComCellValue of hoItems h 0 to "locked-bottom 1"
Send ComAddBar of hoItems h "Task" "1/4/2016" "1/8/2016" "T5" Nothing
Get ComLockedItem of hoItems OLEexMiddle 2 to h
Set ComCellValue of hoItems h 0 to "locked-bottom 2"
Send ComAddBar of hoItems h "Task" "1/5/2016" "1/9/2016" "T6" Nothing
Send Destroy to hoItems
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComFindBar of hoItems1 "T2" -2 to h
Set ComItemBar of hoItems1 h (ComFirstItemBar(hoItems1,h)) OLEexBarColor to 255
Set ComCellValue of hoItems1 h 1 to h
Send Destroy to hoItems1
Send ComEndUpdate
End_Procedure
|
|
1757
|
Is it possible to search for a bar through all items ( including locked items )
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComDebug to True
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 128
Set ComLevelCount of hoChart to 2
Set ComFirstVisibleDate of hoChart to "12/31/2015"
Send Destroy to hoChart
Set ComBackColorAlternate to (RGB(250,250,250))
Set ComShowLockedItems to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Find" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellValueFormat to 1
Set ComVisible of hoColumn to False
Set ComFormatColumn of hoColumn to "int(value) = 0 ? `` : ` <fgcolor=FF0000><b>found here ` "
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComColumnsFormatLevel of hoChart1 to "1"
Send Destroy to hoChart1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComLockedItemCount of hoItems OLEexTop to 3
Variant h
Get ComLockedItem of hoItems OLEexTop 0 to h
Set ComCellValue of hoItems h 0 to "locked-top 1"
Send ComAddBar of hoItems h "Task" "1/4/2016" "1/8/2016" "T1" Nothing
Get ComLockedItem of hoItems OLEexTop 1 to h
Set ComCellValue of hoItems h 0 to "locked-top 2"
Send ComAddBar of hoItems h "Task" "1/5/2016" "1/9/2016" "T2" Nothing
Get ComLockedItem of hoItems OLEexTop 2 to h
Set ComSelectItem of hoItems h to False
Set ComItemDivider of hoItems h to 0
Set ComItemHeight of hoItems h to 2
Send ComAddBar of hoItems (ComAddItem(hoItems,"un-locked item 1")) "Task" "1/4/2016" "1/8/2016" "T3" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"un-locked item 2")) "Task" "1/5/2016" "1/9/2016" "T4" Nothing
Set ComLockedItemCount of hoItems OLEexMiddle to 3
Get ComLockedItem of hoItems OLEexMiddle 0 to h
Set ComSelectItem of hoItems h to False
Set ComItemDivider of hoItems h to 0
Set ComItemHeight of hoItems h to 2
Get ComLockedItem of hoItems OLEexMiddle 1 to h
Set ComCellValue of hoItems h 0 to "locked-bottom 1"
Send ComAddBar of hoItems h "Task" "1/4/2016" "1/8/2016" "T5" Nothing
Get ComLockedItem of hoItems OLEexMiddle 2 to h
Set ComCellValue of hoItems h 0 to "locked-bottom 2"
Send ComAddBar of hoItems h "Task" "1/5/2016" "1/9/2016" "T6" Nothing
Send Destroy to hoItems
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComFindBar of hoItems1 "T5" -1 to h
Set ComItemBar of hoItems1 h (ComFirstItemBar(hoItems1,h)) OLEexBarColor to 255
Set ComCellValue of hoItems1 h 1 to h
Send Destroy to hoItems1
Send ComEndUpdate
End_Procedure
|
|
1756
|
How do I clip/hide/align the bar's caption/text based on the bar's size/width/length
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Clip" to Nothing
Send Destroy to hoColumns
Set ComScrollBySingleLine to True
Set ComDrawGridLines to OLEexRowLines
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComAllowResizeChart of hoChart to (OLEexAllowResizeChartMiddle + OLEexAllowResizeChartHeader)
Set ComDrawGridLines of hoChart to OLEexRowLines
Set ComFirstVisibleDate of hoChart to "12/23/2000"
Set ComLevelCount of hoChart to 2
Set ComPaneWidth of hoChart False to 216
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComPattern of hoBar to OLEexPatternBox
Set ComColor of hoBar to (RGB(164,164,164))
Set ComStartColor of hoBar to (RGB(240,240,240))
Set ComEndColor of hoBar to (ComStartColor(hoBar))
Set ComOverlaidType of hoBar to (OLEexOverlaidBarsIncludeCaption + OLEexOverlaidBarsStackAutoArrange + OLEexOverlaidBarsStack)
Set ComHeight of hoBar to 15
Send Destroy to hoBar
Send Destroy to hoBars
Set ComMinUnitWidth of hoChart to (ComUnitWidth(hoChart))
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "no clip, (0-2)" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "K1" "no clip, right(<b>2</b>)"
Set ComItemBar of hoItems h "K1" OLEexBarHAlignCaption to 2
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "K2" "no clip, center(<b>1</b>)"
Set ComItemBar of hoItems h "K2" OLEexBarHAlignCaption to 1
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "K3" "no clip, left(<b>0</b>)"
Set ComItemBar of hoItems h "K3" OLEexBarHAlignCaption to 0
Get ComAddItem of hoItems "clip, inside (3-5)" to h
Send ComAddBar of hoItems h "Task" "12/28/2000" "1/8/2001" "K1" "clip, inside, right(<b>5</b>)"
Set ComItemBar of hoItems h "K1" OLEexBarHAlignCaption to 5
Send ComAddBar of hoItems h "Task" "12/28/2000" "1/8/2001" "K2" "clip, inside, center(<b>4</b>)"
Set ComItemBar of hoItems h "K2" OLEexBarHAlignCaption to 4
Send ComAddBar of hoItems h "Task" "12/28/2000" "1/8/2001" "K3" "clip, inside, left(<b>3</b>)"
Set ComItemBar of hoItems h "K3" OLEexBarHAlignCaption to 3
Get ComAddItem of hoItems "hide on min width, clip if not fit, inside (6-8)" to h
Send ComAddBar of hoItems h "Task" "12/26/2000" "1/10/2001" "K1" "hide on min width, clip if not fit, inside, right(<b>8</b>)"
Set ComItemBar of hoItems h "K1" OLEexBarHAlignCaption to 8
Send ComAddBar of hoItems h "Task" "12/26/2000" "1/10/2001" "K2" "hide on min width, clip if not fit, inside, center(<b>7</b>)"
Set ComItemBar of hoItems h "K2" OLEexBarHAlignCaption to 7
Send ComAddBar of hoItems h "Task" "12/26/2000" "1/10/2001" "K3" "hide on min width, clip if not fit, inside, left(<b>6</b>)"
Set ComItemBar of hoItems h "K3" OLEexBarHAlignCaption to 6
Get ComAddItem of hoItems "hide if not fit, no clip, inside (9-11)" to h
Send ComAddBar of hoItems h "Task" "12/28/2000" "1/8/2001" "K1" "hide if not fit, no clip, inside, right(<b>11</b>)"
Set ComItemBar of hoItems h "K1" OLEexBarHAlignCaption to 11
Send ComAddBar of hoItems h "Task" "12/28/2000" "1/8/2001" "K2" "hide if not fit, no clip, center(<b>10</b>)"
Set ComItemBar of hoItems h "K2" OLEexBarHAlignCaption to 10
Send ComAddBar of hoItems h "Task" "12/28/2000" "1/8/2001" "K3" "hide if not fit, no clip, inside, left(<b>9</b>)"
Set ComItemBar of hoItems h "K3" OLEexBarHAlignCaption to 9
Get ComAddItem of hoItems "no clip, inside, outside (12-14)" to h
Send ComAddBar of hoItems h "Task" "12/28/2000" "1/8/2001" "K1" "no clip, inside, outside, right(<b>14</b>)"
Set ComItemBar of hoItems h "K1" OLEexBarHAlignCaption to 14
Send ComAddBar of hoItems h "Task" "12/28/2000" "1/8/2001" "K2" "no clip, inside, outside, center(<b>13</b>)"
Set ComItemBar of hoItems h "K2" OLEexBarHAlignCaption to 13
Send ComAddBar of hoItems h "Task" "12/28/2000" "1/8/2001" "K3" "no clip, inside, outside, left(<b>12</b>)"
Set ComItemBar of hoItems h "K3" OLEexBarHAlignCaption to 12
Get ComAddItem of hoItems "no clip, outside (16-18)" to h
Send ComAddBar of hoItems h "Task" "12/30/2000" "1/6/2001" "K1" "no clip, outside, right(<b>18</b>)"
Set ComItemBar of hoItems h "K1" OLEexBarHAlignCaption to 18
Send ComAddBar of hoItems h "Task" "12/30/2000" "1/6/2001" "K2" "no clip, outside, center(<b>17</b>)"
Set ComItemBar of hoItems h "K2" OLEexBarHAlignCaption to 17
Send ComAddBar of hoItems h "Task" "12/30/2000" "1/6/2001" "K3" "no clip, outside, left(<b>16</b>)"
Set ComItemBar of hoItems h "K3" OLEexBarHAlignCaption to 16
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1755
|
Is there a way to prevent the automatic horizontal scrolling of the chart when moving or resizing a bar (method 2)
// Occurs when the first visible date is changed.
Procedure OnComDateChange
Forward Send OnComDateChange
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/2/2001"
Send Destroy to hoChart
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Start" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 1
Set ComVisible of hoColumn to False
Set ComAlignment of hoColumn to OLELeftAlignment
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn1
Get ComAdd of hoColumns2 "End" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 2
Set ComVisible of hoColumn1 to False
Set ComAlignment of hoColumn1 to OLERightAlignment
Send Destroy to hoColumn1
Send Destroy to hoColumns2
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComFirstVisibleDate of hoChart1 to "1/2/2001"
Set ComLevelCount of hoChart1 to 2
Set ComPaneWidth of hoChart1 False to 48
Set ComColumnsFormatLevel of hoChart1 to "1[bg=12500670]:52,|,2[bg=12500670]:52"
Set ComColumnsTransparent of hoChart1 to 50
Set ComScrollBar of hoChart1 to False
Send Destroy to hoChart1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComAllowCellValueToItemBar of hoItems to True
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "1/3/2001" "1/7/2001" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "1/4/2001" "1/8/2001" Nothing Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1754
|
Is there a way to prevent the automatic horizontal scrolling of the chart when moving or resizing a bar, including limiting the bars
// Occurs when a bar is moving or resizing.
Procedure OnComBarResizing HITEM llItem Variant llKey
Forward Send OnComBarResizing llItem llKey
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComItemBar of hoItems llItem llKey OLEexBarMinStart to "1/1/2001"
Set ComItemBar of hoItems llItem llKey OLEexBarMaxEnd to "2/1/2001"
Send Destroy to hoItems
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Start" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 1
Set ComVisible of hoColumn to False
Set ComAlignment of hoColumn to OLELeftAlignment
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn1
Get ComAdd of hoColumns2 "End" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 2
Set ComVisible of hoColumn1 to False
Set ComAlignment of hoColumn1 to OLERightAlignment
Send Destroy to hoColumn1
Send Destroy to hoColumns2
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/2/2001"
Set ComLevelCount of hoChart to 2
Set ComPaneWidth of hoChart False to 48
Set ComColumnsFormatLevel of hoChart to "1[bg=12500670]:52,|,2[bg=12500670]:52"
Set ComColumnsTransparent of hoChart to 50
Set ComScrollRange of hoChart OLEexStartDate to "1/1/2001"
Set ComScrollRange of hoChart OLEexEndDate to "1/31/2001"
Send Destroy to hoChart
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComAllowCellValueToItemBar of hoItems1 to True
Send ComAddBar of hoItems1 (ComAddItem(hoItems1,"Task 1")) "Task" "1/3/2001" "1/7/2001" Nothing Nothing
Send ComAddBar of hoItems1 (ComAddItem(hoItems1,"Task 2")) "Task" "1/4/2001" "1/8/2001" Nothing Nothing
Send Destroy to hoItems1
Send ComEndUpdate
End_Procedure
|
|
1753
|
Is there a way to prevent the automatic horizontal scrolling of the chart when moving or resizing a bar (method 1)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Start" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 1
Set ComVisible of hoColumn to False
Set ComAlignment of hoColumn to OLELeftAlignment
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn1
Get ComAdd of hoColumns2 "End" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 2
Set ComVisible of hoColumn1 to False
Set ComAlignment of hoColumn1 to OLERightAlignment
Send Destroy to hoColumn1
Send Destroy to hoColumns2
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/2/2001"
Set ComLevelCount of hoChart to 2
Set ComPaneWidth of hoChart False to 48
Set ComColumnsFormatLevel of hoChart to "1[bg=12500670]:52,|,2[bg=12500670]:52"
Set ComColumnsTransparent of hoChart to 50
Set ComScrollRange of hoChart OLEexStartDate to "1/1/2001"
Set ComScrollRange of hoChart OLEexEndDate to "1/31/2001"
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComAllowCellValueToItemBar of hoItems to True
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "1/3/2001" "1/7/2001" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "1/4/2001" "1/8/2001" Nothing Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1752
|
Is it possible to have "Preview Window" as a "Modal Window or 'always-on-top window'"
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Task 1" to h1
Send ComAddBar of hoItems h1 "Task" "1/2/2001" "1/4/2001" "K1" Nothing
Variant h2
Get ComAddItem of hoItems "Task 2" to h2
Send ComAddBar of hoItems h2 "Task" "1/5/2001" "1/7/2001" "K2" Nothing
Send ComAddLink of hoItems "L1" h1 "K1" h2 "K2"
Set ComLink of hoItems "L1" OLEexLinkStartPos to 0
Send Destroy to hoItems
Send ComEndUpdate
Handle hoPrint
Get Create (RefClass(cComPrint)) to hoPrint // Import the 'ExPrint 1.0 Control Library' library
Showln (ComVersion(hoPrint))
Set ComForeground of hoPrint to -1
Set ComPrintExt of hoPrint to (pvComObject(Self))
Send ComPreview of hoPrint
Send Destroy to hoPrint
End_Procedure
|
|
1751
|
The week number is not correct (wrong). What can I do
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstWeekDay of hoChart to (ComLocFirstWeekDay(hoChart))
Set ComMonthNames of hoChart to (ComLocMonthNames(hoChart))
Set ComWeekDays of hoChart to (ComLocWeekDays(hoChart))
Set ComAMPM of hoChart to (ComLocAMPM(hoChart))
Set ComLevelCount of hoChart to 2
Set ComPaneWidth of hoChart False to 0
Set ComUnitScale of hoChart to OLEexWeek
Set ComUnitWidth of hoChart to 32
Set ComFirstVisibleDate of hoChart to "1/1/2016"
Set ComAdjustLevelsToBase of hoChart to True
Set ComWeekNumberAs of hoChart to OLEexISO8601WeekNumber
Set ComShowNonworkingDates of hoChart to False
Send ComScrollTo of hoChart (ComFirstVisibleDate(hoChart)) 1
Send Destroy to hoChart
End_Procedure
|
|
1750
|
When the user zooms with the mouse, the chart automatically switches the unit scale - ideally I'd like to replicate this so I can switch the unitscale at the same "zoom levels" that the mouse zooming does - is this possible
// Occurs after the chart has been changed.
Procedure OnComChartEndChanging OLEBarOperationEnum llOperation
Forward Send OnComChartEndChanging llOperation
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Showln "FirstVisibleDate" (ComFirstVisibleDate(hoChart))
Showln "UnitScale" (ComUnitScale(hoChart))
Showln "UnitWidth" (ComUnitWidth(hoChart))
Send Destroy to hoChart
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComLevelCount of hoChart1 to 3
Set ComAllowResizeChart of hoChart1 to (OLEexAllowChangeUnitScale + OLEexAllowResizeChartMiddle + OLEexAllowResizeChartHeader)
Set ComPaneWidth of hoChart1 False to 0
Set ComMarkTodayColor of hoChart1 to (ComBackColor(hoChart1))
Send Destroy to hoChart1
Send ComEndUpdate
End_Procedure
|
|
1749
|
The first week number is not correctly assigned. What can I do
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 0
Set ComFirstVisibleDate of hoChart to "1/1/2016"
Set ComLevelCount of hoChart to 2
Set ComFirstWeekDay of hoChart to OLEexMonday
Set ComUnitScale of hoChart to OLEexWeek
Send ComScrollTo of hoChart (ComFirstVisibleDate(hoChart)) 1
Set ComDrawGridLines of hoChart to OLEexAllLines
Set ComAdjustLevelsToBase of hoChart to True
Variant voLevel
Get ComLevel of hoChart 0 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComLabel of hoLevel to "<c><%mmmm%>"
Send Destroy to hoLevel
Send Destroy to hoChart
End_Procedure
|
|
1748
|
How can I display the +/- expand - collapse buttons, a bit larger
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 3 "c:\exontrol\images\normal.ebn" to Nothing
Get ComAdd of hoAppearance 4 "c:\exontrol\images\pushed.ebn" to Nothing
Get ComAdd of hoAppearance 1 "CP:3 -4 -4 4 4" to Nothing
Get ComAdd of hoAppearance 2 "CP:4 -4 -4 4 4" to Nothing
Send Destroy to hoAppearance
Set ComLinesAtRoot to OLEexGroupLinesAtRoot
Set ComHasButtons to OLEexCustom
Set ComHasButtonsCustom False to 16777216
Set ComHasButtonsCustom True to 33554432
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root 1" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Set ComExpandItem of hoItems h to True
Get ComAddItem of hoItems "Root 2" to h
Get ComInsertItem of hoItems h "Child" to Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1747
|
Is there any option to control where I can drop the items when using the AutoDrag property
// Occurs when the user drags the item between InsertA and InsertB as child of NewParent.
Procedure OnComAllowAutoDrag HITEM llItem HITEM llNewParent HITEM llInsertA HITEM llInsertB Boolean llCancel
Forward Send OnComAllowAutoDrag llItem llNewParent llInsertA llInsertB llCancel
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Showln "NewParent" (ComCellCaption(hoItems,llNewParent,0))
Showln "After" (ComCellCaption(hoItems,llInsertA,0))
Showln "Before" (ComCellCaption(hoItems,llInsertB,0))
Send Destroy to hoItems
Move True to Cancel
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAutoDrag to OLEexAutoDragPositionAny
Set ComLinesAtRoot to OLEexNoLinesAtRoot
Set ComHasLines to OLEexThinLine
Set ComShowFocusRect to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComShowNonworkingDates of hoChart to False
Set ComFirstVisibleDate of hoChart to "12/29/2000"
Set ComPaneWidth of hoChart False to 96
Set ComLevelCount of hoChart to 2
Send Destroy to hoChart
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Variant h
Get ComAddItem of hoItems1 "Group 1" to h
Set ComItemDivider of hoItems1 h to 0
Set ComItemBold of hoItems1 h to True
Variant h1
Get ComInsertItem of hoItems1 h "Task 1" to h1
Send ComAddBar of hoItems1 h1 "Task" "1/2/2001" "1/4/2001" "K1" Nothing
Variant h2
Get ComInsertItem of hoItems1 h "Task 2" to h2
Send ComAddBar of hoItems1 h2 "Task" "1/5/2001" "1/7/2001" "K2" Nothing
Send ComAddLink of hoItems1 "L1" h1 "K1" h2 "K2"
Set ComLink of hoItems1 "L1" OLEexLinkText to "L1"
Variant h3
Get ComInsertItem of hoItems1 h "Task 3" to h3
Send ComAddBar of hoItems1 h3 "Task" "1/8/2001" "1/10/2001" "K3" Nothing
Send ComAddLink of hoItems1 "L2" h2 "K2" h3 "K3"
Set ComLink of hoItems1 "L2" OLEexLinkText to "L2"
Set ComExpandItem of hoItems1 h to True
Get ComAddItem of hoItems1 "Group 2" to h
Set ComItemBold of hoItems1 h to True
Set ComItemDivider of hoItems1 h to 0
Send Destroy to hoItems1
Send ComEndUpdate
End_Procedure
|
|
1746
|
The column (chart section ) overlaps the bars, when using the ColumnsFormatLevel property. How can I prevent that
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Start" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 1
Set ComVisible of hoColumn to False
Set ComAlignment of hoColumn to OLELeftAlignment
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn1
Get ComAdd of hoColumns2 "End" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 2
Set ComVisible of hoColumn1 to False
Set ComAlignment of hoColumn1 to OLERightAlignment
Send Destroy to hoColumn1
Send Destroy to hoColumns2
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/2/2001"
Set ComLevelCount of hoChart to 2
Set ComPaneWidth of hoChart False to 48
Set ComColumnsFormatLevel of hoChart to "1[bg=12500670]:52,|,2[bg=12500670]:52"
Set ComColumnsTransparent of hoChart to 50
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComAllowCellValueToItemBar of hoItems to True
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "1/3/2001" "1/7/2001" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "1/4/2001" "1/8/2001" Nothing Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1745
|
How do I show the column ( chart section ) with a different background color, when using the ColumnsFormatLevel property (method 2)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Start" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 1
Set ComVisible of hoColumn to False
Set ComAlignment of hoColumn to OLELeftAlignment
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn1
Get ComAdd of hoColumns2 "End" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 2
Set ComVisible of hoColumn1 to False
Set ComAlignment of hoColumn1 to OLERightAlignment
Send Destroy to hoColumn1
Send Destroy to hoColumns2
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/2/2001"
Set ComLevelCount of hoChart to 2
Set ComPaneWidth of hoChart False to 48
Set ComColumnsFormatLevel of hoChart to "1[bg=12500670]:52,|,2[bg=12500670]:52"
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComAllowCellValueToItemBar of hoItems to True
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "1/3/2001" "1/7/2001" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "1/4/2001" "1/8/2001" Nothing Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1744
|
How do I show the column ( chart section ) with a different background color, when using the ColumnsFormatLevel property (method 1)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Start" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 1
Set ComVisible of hoColumn to False
Set ComAlignment of hoColumn to OLELeftAlignment
Set ComDef of hoColumn OLEexCellBackColor to 12500670
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn1
Get ComAdd of hoColumns2 "End" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 2
Set ComVisible of hoColumn1 to False
Set ComAlignment of hoColumn1 to OLERightAlignment
Set ComDef of hoColumn1 OLEexCellBackColor to 12500670
Send Destroy to hoColumn1
Send Destroy to hoColumns2
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "12/31/2000"
Set ComLevelCount of hoChart to 2
Set ComPaneWidth of hoChart False to 48
Set ComColumnsFormatLevel of hoChart to "1:52,|,2:52"
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComAllowCellValueToItemBar of hoItems to True
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "1/3/2001" "1/7/2001" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "1/4/2001" "1/8/2001" Nothing Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1743
|
How can I display the control's content on an single A3 paper size, when using PDF format
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Set ComAntiAliasing to True
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "12/24/2000"
Set ComPaneWidth of hoChart False to 96
Set ComLevelCount of hoChart to 2
Set ComUnitScale of hoChart to OLEexDay
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComPattern of hoBar to OLEexPatternSolid
Set ComColor of hoBar to (RGB(0,0,0))
Set ComHeight of hoBar to 16
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "12/25/2000" "1/5/2001" "1" "<fgcolor=FFFFFF>Center"
Set ComItemBar of hoItems h "1" OLEexBarExtraCaption to "left"
Set ComItemBar of hoItems h "1" OLEexBarExtraCaptionHAlign to 16
Get ComAddItem of hoItems "Task 2" to h
Send ComAddBar of hoItems h "Task" "1/5/2001" "1/16/2001" "1" "<fgcolor=FFFFFF>Center"
Get ComAddItem of hoItems "Task 3" to h
Send ComAddBar of hoItems h "Task" "1/16/2001" "1/26/2001" "2" "Center"
Set ComItemBar of hoItems h "2" OLEexBarExtraCaption to "right"
Set ComItemBar of hoItems h "2" OLEexBarExtraCaptionHAlign to 18
Send Destroy to hoItems
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Variant voNotes
Get ComNotes of hoChart1 to voNotes
Handle hoNotes
Get Create (RefClass(cComNotes)) to hoNotes
Set pvComObject of hoNotes to voNotes
Variant vItem
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComItemByIndex of hoItems1 1 to vItem
Send Destroy to hoItems1
Variant voNote
Get ComAdd of hoNotes "1S" vItem "1" "<%m3%>-<%d%>" to voNote
Handle hoNote
Get Create (RefClass(cComNote)) to hoNote
Set pvComObject of hoNote to voNote
Set ComPartShadow of hoNote OLEexNoteEnd to False
Set ComPartHOffset of hoNote OLEexNoteEnd to -16
Set ComPartVOffset of hoNote OLEexNoteEnd to 4
Send Destroy to hoNote
Variant vItem1
Variant voItems2
Get ComItems to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Get ComItemByIndex of hoItems2 1 to vItem1
Send Destroy to hoItems2
Variant voNote1
Get ComAdd of hoNotes "1F" vItem1 "1" "<%m3%>-<%d%>" to voNote1
Handle hoNote1
Get Create (RefClass(cComNote)) to hoNote1
Set pvComObject of hoNote1 to voNote1
Set ComRelativePosition of hoNote1 to 1
Set ComPartShadow of hoNote1 OLEexNoteEnd to False
Set ComPartHOffset of hoNote1 OLEexNoteEnd to 16
Set ComPartVOffset of hoNote1 OLEexNoteEnd to -4
Send Destroy to hoNote1
Send Destroy to hoNotes
Send Destroy to hoChart1
Variant var_CopyTo
Get ComCopyTo "C:\Temp\Preview.pdf|11.69 in x 16.53 in||single" to var_CopyTo
Showln "Look for C:\Temp\Preview.pd file."
Send ComEndUpdate
End_Procedure
|
|
1742
|
How can I display the control's content on an A3 paper size, when using PDF format
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Set ComAntiAliasing to True
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "12/24/2000"
Set ComPaneWidth of hoChart False to 96
Set ComLevelCount of hoChart to 2
Set ComUnitScale of hoChart to OLEexDay
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComPattern of hoBar to OLEexPatternSolid
Set ComColor of hoBar to (RGB(0,0,0))
Set ComHeight of hoBar to 16
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "12/25/2000" "1/5/2001" "1" "<fgcolor=FFFFFF>Center"
Set ComItemBar of hoItems h "1" OLEexBarExtraCaption to "left"
Set ComItemBar of hoItems h "1" OLEexBarExtraCaptionHAlign to 16
Get ComAddItem of hoItems "Task 2" to h
Send ComAddBar of hoItems h "Task" "1/5/2001" "1/16/2001" "1" "<fgcolor=FFFFFF>Center"
Get ComAddItem of hoItems "Task 3" to h
Send ComAddBar of hoItems h "Task" "1/16/2001" "1/26/2001" "2" "Center"
Set ComItemBar of hoItems h "2" OLEexBarExtraCaption to "right"
Set ComItemBar of hoItems h "2" OLEexBarExtraCaptionHAlign to 18
Send Destroy to hoItems
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Variant voNotes
Get ComNotes of hoChart1 to voNotes
Handle hoNotes
Get Create (RefClass(cComNotes)) to hoNotes
Set pvComObject of hoNotes to voNotes
Variant vItem
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComItemByIndex of hoItems1 1 to vItem
Send Destroy to hoItems1
Variant voNote
Get ComAdd of hoNotes "1S" vItem "1" "<%m3%>-<%d%>" to voNote
Handle hoNote
Get Create (RefClass(cComNote)) to hoNote
Set pvComObject of hoNote to voNote
Set ComPartShadow of hoNote OLEexNoteEnd to False
Set ComPartHOffset of hoNote OLEexNoteEnd to -16
Set ComPartVOffset of hoNote OLEexNoteEnd to 4
Send Destroy to hoNote
Variant vItem1
Variant voItems2
Get ComItems to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Get ComItemByIndex of hoItems2 1 to vItem1
Send Destroy to hoItems2
Variant voNote1
Get ComAdd of hoNotes "1F" vItem1 "1" "<%m3%>-<%d%>" to voNote1
Handle hoNote1
Get Create (RefClass(cComNote)) to hoNote1
Set pvComObject of hoNote1 to voNote1
Set ComRelativePosition of hoNote1 to 1
Set ComPartShadow of hoNote1 OLEexNoteEnd to False
Set ComPartHOffset of hoNote1 OLEexNoteEnd to 16
Set ComPartVOffset of hoNote1 OLEexNoteEnd to -4
Send Destroy to hoNote1
Send Destroy to hoNotes
Send Destroy to hoChart1
Variant var_CopyTo
Get ComCopyTo "C:\Temp\Preview.pdf|11.69 in x 16.53 in" to var_CopyTo
Showln "Look for C:\Temp\Preview.pd file."
Send ComEndUpdate
End_Procedure
|
|
1741
|
How can I specify the grouping strategy, ie numbers from 1 to 5 are given the value (1-5) and grouping is done on this new value
// Occurs after a new Group Item has been inserted to Items collection.
Procedure OnComAddGroupItem HITEM llItem
Forward Send OnComAddGroupItem llItem
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComItemBold of hoItems llItem to True
Send ComAddBar of hoItems llItem "Summary" (ComCellValue(hoItems,llItem,1)) (ComCellValue(hoItems,llItem,2)) Nothing Nothing
Send ComDefineSummaryBars of hoItems llItem "" -3 ""
Send Destroy to hoItems
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAllowGroupBy to True
Set ComSortBarVisible to True
Set ComMarkSearchColumn to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Variant voColumn
Get ComAdd of hoColumns "Start" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 1
Set ComAllowGroupBy of hoColumn to False
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "End" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 2
Set ComAllowGroupBy of hoColumn1 to False
Send Destroy to hoColumn1
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "9/20/2006"
Set ComLevelCount of hoChart to 2
Set ComPaneWidth of hoChart False to 256
Send Destroy to hoChart
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComAllowCellValueToItemBar of hoItems1 to True
Send ComAddBar of hoItems1 (ComAddItem(hoItems1,"1")) "Task" "9/21/2006" "9/27/2006" Nothing Nothing
Send ComAddBar of hoItems1 (ComAddItem(hoItems1,"1")) "Task" "9/22/2006" "9/28/2006" Nothing Nothing
Send ComAddBar of hoItems1 (ComAddItem(hoItems1,"2")) "Task" "9/22/2006" "9/28/2006" Nothing Nothing
Send ComAddBar of hoItems1 (ComAddItem(hoItems1,"2")) "Task" "9/23/2006" "9/29/2006" Nothing Nothing
Send ComAddBar of hoItems1 (ComAddItem(hoItems1,"3")) "Task" "9/25/2006" "9/29/2006" Nothing Nothing
Send ComAddBar of hoItems1 (ComAddItem(hoItems1,"3")) "Task" "9/26/2006" "9/30/2006" Nothing Nothing
Send Destroy to hoItems1
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn2
Get ComAdd of hoColumns1 "Tasks - Group" to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Set ComVisible of hoColumn2 to False
Set ComFormatColumn of hoColumn2 to "%0 in (1,2) ? `1 - 2` : `3 -`"
Set ComSortOrder of hoColumn2 to OLESortAscending
Send Destroy to hoColumn2
Send Destroy to hoColumns1
Send ComEndUpdate
End_Procedure
|
|
1740
|
How can I filter the chart and its content, not the items section
// Fired when right mouse button is clicked
Procedure OnComRClick
Forward Send OnComRClick
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComItem of hoColumns "Start" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Send ComShowFilter of hoColumn "-1,-1,128,128"
Send Destroy to hoColumn
Send Destroy to hoColumns
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComSortBarVisible to True
Set ComMarkSearchColumn to False
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "Tasks" to Nothing
Variant voColumn1
Get ComAdd of hoColumns1 "Start" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 1
Set ComDisplayFilterDate of hoColumn1 to True
Set ComDisplayFilterPattern of hoColumn1 to False
Set ComFilterList of hoColumn1 to (OLEexShowExclude + OLEexShowCheckBox)
Set ComVisible of hoColumn1 to False
Send Destroy to hoColumn1
Variant voColumn2
Get ComAdd of hoColumns1 "End" to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Set ComDef of hoColumn2 OLEexCellValueToItemBarProperty to 2
Set ComDisplayFilterDate of hoColumn2 to True
Set ComDisplayFilterPattern of hoColumn2 to False
Set ComVisible of hoColumn2 to False
Set ComFilterList of hoColumn2 to (OLEexShowExclude + OLEexShowCheckBox)
Set ComVisible of hoColumn2 to False
Send Destroy to hoColumn2
Send Destroy to hoColumns1
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "9/20/2006"
Set ComLevelCount of hoChart to 2
Set ComPaneWidth of hoChart False to 128
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComAllowCellValueToItemBar of hoItems to True
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "9/21/2006" "9/27/2006" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "9/22/2006" "9/28/2006" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 3")) "Task" "9/22/2006" "9/28/2006" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 4")) "Task" "9/23/2006" "9/29/2006" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 5")) "Task" "9/25/2006" "9/29/2006" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 6")) "Task" "9/26/2006" "9/30/2006" Nothing Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1739
|
How do I enable the Group-By feature
// Occurs after a new Group Item has been inserted to Items collection.
Procedure OnComAddGroupItem HITEM llItem
Forward Send OnComAddGroupItem llItem
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComItemBackColor of hoItems llItem to (RGB(240,240,240))
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComItemBackColor of hoChart llItem to (RGB(240,240,240))
Send Destroy to hoChart
Set ComItemDividerLine of hoItems llItem to OLEEmptyLine
Send ComAddBar of hoItems llItem "Summary" (ComCellValue(hoItems,llItem,1)) (ComCellValue(hoItems,llItem,2)) Nothing Nothing
Send ComDefineSummaryBars of hoItems llItem "" -3 ""
Send Destroy to hoItems
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAllowGroupBy to True
Set ComSortBarVisible to True
Set ComMarkSearchColumn to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Variant voColumn
Get ComAdd of hoColumns "Start" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 1
Set ComAllowGroupBy of hoColumn to False
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "End" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 2
Set ComAllowGroupBy of hoColumn1 to False
Send Destroy to hoColumn1
Send Destroy to hoColumns
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComFirstVisibleDate of hoChart1 to "9/20/2006"
Set ComLevelCount of hoChart1 to 2
Set ComPaneWidth of hoChart1 False to 256
Send Destroy to hoChart1
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComAllowCellValueToItemBar of hoItems1 to True
Send ComAddBar of hoItems1 (ComAddItem(hoItems1,"Task 1")) "Task" "9/21/2006" "9/27/2006" Nothing Nothing
Send ComAddBar of hoItems1 (ComAddItem(hoItems1,"Task 1")) "Task" "9/22/2006" "9/28/2006" Nothing Nothing
Send ComAddBar of hoItems1 (ComAddItem(hoItems1,"Task 2")) "Task" "9/22/2006" "9/28/2006" Nothing Nothing
Send ComAddBar of hoItems1 (ComAddItem(hoItems1,"Task 2")) "Task" "9/23/2006" "9/29/2006" Nothing Nothing
Send ComAddBar of hoItems1 (ComAddItem(hoItems1,"Task 3")) "Task" "9/25/2006" "9/29/2006" Nothing Nothing
Send ComAddBar of hoItems1 (ComAddItem(hoItems1,"Task 3")) "Task" "9/26/2006" "9/30/2006" Nothing Nothing
Send Destroy to hoItems1
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn2
Get ComItem of hoColumns1 0 to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Set ComSortOrder of hoColumn2 to OLESortAscending
Send Destroy to hoColumn2
Send Destroy to hoColumns1
Send ComEndUpdate
End_Procedure
|
|
1738
|
Is there any method to know number/length/count/duration of working days in a bar ( excluding non-working days)
// Fired after a new item has been selected.
Procedure OnComSelectionChanged
Forward Send OnComSelectionChanged
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Showln (ComCellCaption(hoItems,(ComFocusItem(hoItems)),0)) (ComItemBar(hoItems,(ComFocusItem(hoItems)),"",OLEexBarWorkingCount))
Send Destroy to hoItems
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComSelBackColor to (RGB(142,190,255))
Set ComSelForeColor to (RGB(0,0,0))
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 96
Set ComFirstVisibleDate of hoChart to "1/1/2002"
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComAdd of hoBars "Task:Split" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComShortcut of hoBar to "Task"
Set ComDef of hoBar OLEexBarCaption to "<%=%258%><font ;6><off 3>w/units"
Set ComDef of hoBar OLEexBarHAlignCaption to 18
Send Destroy to hoBar
Send Destroy to hoBars
Variant v
Get ComSelBackColor to v
Set ComSelBackColor of hoChart to v
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Variant h
Get ComAddItem of hoItems1 "Task A" to h
Send ComAddBar of hoItems1 h "Task" "1/2/2002" "1/9/2002" Nothing Nothing
Get ComAddItem of hoItems1 "Task B" to h
Send ComAddBar of hoItems1 h "Task" "1/3/2002" "1/8/2002" Nothing Nothing
Set ComSelectItem of hoItems1 h to True
Get ComAddItem of hoItems1 "Task C" to h
Send ComAddBar of hoItems1 h "Task" "1/4/2002" "1/5/2002" Nothing Nothing
Send Destroy to hoItems1
Send ComEndUpdate
End_Procedure
|
|
1737
|
How do i verify weather specified unit is Nonworking Working Unit
// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short llButton Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY
Forward Send OnComMouseMove llButton llShift llX llY
Variant h
Get ComItemFromPoint -1 -1 c hit to h
Variant v
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Get ComDateFromPoint of hoChart -1 -1 to v
Send Destroy to hoChart
Variant d
Move v to d
Variant v1
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Get ComIsNonworkingDate of hoChart1 d h to v1
Send Destroy to hoChart1
Showln d v1
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "NonWorking" to Nothing
Send Destroy to hoColumns
Variant voChart2
Get ComChart to voChart2
Handle hoChart2
Get Create (RefClass(cComChart)) to hoChart2
Set pvComObject of hoChart2 to voChart2
Set ComFirstWeekDay of hoChart2 to OLEexMonday
Set ComFirstVisibleDate of hoChart2 to "1/24/2008"
Set ComPaneWidth of hoChart2 False to 64
Set ComLevelCount of hoChart2 to 2
Send Destroy to hoChart2
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "Default" to h
Get ComAddItem of hoItems "January" to h
Set ComItemNonworkingUnits of hoItems h False to "month(value) = 1"
Get ComAddItem of hoItems "February, Saturday, Sunday" to h
Set ComItemNonworkingUnits of hoItems h False to "month(value) = 2 or (weekday(value) = 0 or weekday(value) = 6)"
Get ComAddItem of hoItems "Sunday" to h
Set ComItemNonworkingUnits of hoItems h False to "weekday(value) = 0"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1736
|
How can I specify the bar's caption to be caption from a column/cell
// Occurs when the user changes the cell's content.
Procedure OnComChange HITEM llItem Integer llColIndex Variant llNewValue
Forward Send OnComChange llItem llColIndex llNewValue
Send ComRefresh
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComPaneWidth of hoChart False to 64
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComDef of hoBar OLEexBarCaption to "<fgcolor=808080><%=%C0%>"
Set ComDef of hoBar OLEexBarHAlignCaption to 18
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Task" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Variant voEditor
Get ComEditor of hoColumn to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComEditType of hoEditor to OLEDropDownListType
Send ComAddItem of hoEditor 1 "Aka" Nothing
Send ComAddItem of hoEditor 2 "Baka" Nothing
Send ComAddItem of hoEditor 3 "Taka" Nothing
Send Destroy to hoEditor
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,1)) "Task" "1/2/2001" "1/5/2001" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,2)) "Task" "1/3/2001" "1/6/2001" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,3)) "Task" "1/4/2001" "1/7/2001" Nothing Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1735
|
The histogram values displayed on the chart are using 2 decimal places. Can this be formated to just 0 decimal place, so 86.79% becomes 87%
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Effort" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 21
Variant voEditor
Get ComEditor of hoColumn to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComEditType of hoEditor to OLESpinType
Send Destroy to hoEditor
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLevelCount of hoChart to 2
Set ComNonworkingDays of hoChart to 0
Set ComPaneWidth of hoChart False to 96
Set ComFirstVisibleDate of hoChart to "6/20/2005"
Set ComHistogramVisible of hoChart to True
Set ComHistogramHeight of hoChart to 128
Set ComHistogramView of hoChart to OLEexHistogramAllItems
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComHistogramPattern of hoBar to (ComPattern(hoBar))
Set ComHistogramType of hoBar to OLEexHistOverload
Set ComHistogramCriticalValue of hoBar to 3
Set ComShowHistogramValues of hoBar to "value>3?255:1"
Set ComHistogramItems of hoBar to -11
Set ComHistogramGridLinesColor of hoBar to (RGB(192,192,192))
Set ComHistogramRulerLinesColor of hoBar to (RGB(0,0,1))
Set ComFormatHistogramValues of hoBar to "(value format `0`) + ` units`"
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComAllowCellValueToItemBar of hoItems to True
Variant h1
Get ComAddItem of hoItems "Task 1" to h1
Send ComAddBar of hoItems h1 "Task" "6/21/2005" "6/23/2005" Nothing Nothing
Set ComCellValue of hoItems h1 1 to 6.79
Get ComAddItem of hoItems "Task 2" to h1
Send ComAddBar of hoItems h1 "Task" "6/24/2005" "6/26/2005" Nothing Nothing
Set ComCellValue of hoItems h1 1 to 3.19
Get ComAddItem of hoItems "Task 3" to h1
Send ComAddBar of hoItems h1 "Task" "6/27/2005" "6/29/2005" Nothing Nothing
Set ComCellValue of hoItems h1 1 to 2
Get ComAddItem of hoItems "Task 4" to h1
Send ComAddBar of hoItems h1 "Task" "6/30/2005" "7/2/2005" Nothing Nothing
Set ComCellValue of hoItems h1 1 to 1
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1734
|
How can I create a relative time-scale
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComDefaultItemHeight to 24
Set ComHeaderHeight to (ComDefaultItemHeight(Self))
Set ComGridLineStyle to OLEexGridLinesSolid
Set ComDrawGridLines to OLEexAllLines
Set ComLinesAtRoot to OLEexNoLinesAtRoot
Set ComBackColorLevelHeader to (ComBackColor(Self))
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComDrawGridLines of hoChart to OLEexAllLines
Set ComGridLineStyle of hoChart to OLEexGridLinesSolid
Set ComPaneWidth of hoChart False to 128
Set ComLevelCount of hoChart to 2
Set ComFirstVisibleDate of hoChart to 0
Set ComNonworkingDays of hoChart to 0
Set ComUnitWidth of hoChart to 36
Variant voLevel
Get ComLevel of hoChart 0 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComUnit of hoLevel to OLEexDay
Set ComCount of hoLevel to 6
Set ComAlignment of hoLevel to OLECenterAlignment
Set ComLabel of hoLevel to "<%i%>"
Set ComFormatLabel of hoLevel to "'<b>' + ( (value / 6) array ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec') ) + '-16'"
Send Destroy to hoLevel
Variant voLevel1
Get ComLevel of hoChart 1 to voLevel1
Handle hoLevel1
Get Create (RefClass(cComLevel)) to hoLevel1
Set pvComObject of hoLevel1 to voLevel1
Set ComLabel of hoLevel1 to "<%i%>"
Set ComFormatLabel of hoLevel1 to "1 + value mod 6 + ` `"
Set ComAlignment of hoLevel1 to OLERightAlignment
Send Destroy to hoLevel1
Set ComAdjustLevelsToBase of hoChart to True
Set ComScrollRange of hoChart OLEexStartDate to 0
Set ComScrollRange of hoChart OLEexEndDate to 95
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComHeight of hoBar to 15
Set ComColor of hoBar to (RGB(252,213,180))
Set ComPattern of hoBar to OLEexPatternSolid
Set ComDef of hoBar OLEexBarCaption to "date blocking"
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Company" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "ABC Company" to h
Set ComItemBackColor of hoItems h to (RGB(240,240,240))
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComItemBackColor of hoChart1 h to (RGB(240,240,240))
Send Destroy to hoChart1
Variant hChild
Get ComInsertItem of hoItems h "line 1" to hChild
Send ComAddBar of hoItems hChild "Task" 0 3 Nothing Nothing
Get ComInsertItem of hoItems h "line 2" to hChild
Send ComAddBar of hoItems hChild "Task" 3 5 "A" Nothing
Send ComAddBar of hoItems hChild "Task" 7 10 "B" Nothing
Get ComInsertItem of hoItems h "line 3" to hChild
Send ComAddBar of hoItems hChild "Task" 5 8 "A" Nothing
Send ComAddBar of hoItems hChild "Task" 9 12 "B" Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1733
|
Extending the bar's visual appearance with additional objects, EBNs, using the exBarBackgroundExt and exBarBackgroundExtInflate
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComDefaultItemHeight to 32
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAADhABcMIQAAYAQGKIYBkAKBQAGaAoDDUMQyQwAAyDAK8EwsACEIrAAJoaAAPoJRDGMTvfIgARIf6MIRAeCYFDAJQtDCMICwSKsXBaGwBJYGGaYEDGHQATxKM7wGBcEyLDSgXZDQRAAoqTI/SICEIlAZJRjoOo5DJGGQmChkQhNVzGQzQSJFDTNAaEAwidDJCoOGgkBw7NwXFaNZznBK7LpvK5HNrie55XzAcj3dbmAYJQzBJLxKSIDwCd6NXrCOJ5HhWDzjQjJMozLC8YiPG6fZRbeT4ToGNdXYhJWiyLiFeYtVzSMj1fD9Ir/EakbLtey4Lq2A53RzdHThSQpCwPA4BgIA=" to Nothing
Get ComAdd of hoAppearance 2 "gBFLBCJwBAEHhEJAADhABcMIQAAYAQGKIYBkAKBQAGaAoDDUMQyQwAAyDAK8EwsACEIrAAJoaAAPoJRDGMTvfIgARIf6MIRAeCYFDAJQtDCMICwSKsXBaGwBJYGGaYEDGHQATxKM7wGBcEyLDSgXZDQRAAoqTI/SICEIlAZJRjoOo5DJGGQmChkQhNVzGQzQSJFDTNAaEAwidDJCoOGgkBw7NrXHZ9YwTOC5IDke67cr2J53XZAd4QTb2Cz7QC8QAvDA7awafM1MSuHIcOw/AqTYDkTq4XjODYhTDEc4zPLcFx/I6haBoWCSLi+T5VVrRMo1TKtRxnNaubZqO5aRrGe5NW6EXThSQpCr+f4BgIA=" to Nothing
Get ComAdd of hoAppearance 3 "gBFLBCJwBAEHhEJAADhABcMIQAAYAQGKIYBkAKBQAGaAoDDUMQyQwAAyDAK8EwsACEIrAAJoaAAPoJRDGMTvfIgARIf6MIRAeCYFDAJQtDCMICwSKsXBaGwBJYGGaYEDGHQATxKM7wGBcEyLDSgXZDQRAAoqTI/SICEIlAZJRjoOo5DJGGQmChkQhNVzGQzQSJFDTNAaEAwidDJCoOGgkBw7NwXFaNZznBK7LpvK5HNrie55XxfV6YBa8B4JPaEZLwLB7dwaf6IQLiWLYHiAAYZRKTcxlDI8AwvFaaZjnWA5ZaOMZBU7RNRyHR9IyTDaWaTqeqbHIuJ4FUzaNY2fZrOz2F6FAA6cKSFIWFYVAMBA" to Nothing
Get ComAdd of hoAppearance 4 "gBFLBCJwBAEHhEJAADhABb8IQAAYAQGKIYBkAKBQAGaAoDDUMQyQwAAyDAK8EwsACEIrAAJoaAAPoJRDGMTvfIgARIf6MIRAeCYFDAJQtDCMICwSKsXBaGwBJYGGaYEDGHQATxKM7wGBcEyLDSgXZDQRAAoqTI/SICEIlAZJRjoOo5DJGGQmChkQhNVzGQzQSJFDTNAaEAwidDJCoOGgkBw7NwXFaNZznBK7LpvK5HNrie55XxfV6YBa8B4JPaEZLwLB7dwaf6IQLiWLYHiAAYBIbJI5yeb5Hx3HqfZjbeSxVoML43SzHcByGRcTwzC6pYjrGoZJpWZ4ZQrbNR3DZ8VzzNTrQxIUhYVhUAkB" to Nothing
Set ComRenderType of hoAppearance to -16777216
Send Destroy to hoAppearance
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 164
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComNonworkingDaysColor of hoChart to (RGB(240,240,240))
Set ComNonworkingDaysPattern of hoChart to OLEexPatternBDiagonal
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComHeight of hoBar to 17
Set ComColor of hoBar to (RGB(255,255,255))
Set ComPattern of hoBar to OLEexPatternSolid
Set ComDef of hoBar OLEexBarFrameColor to 1
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task")) "Task" "1/2/2001" "1/6/2001" "" Nothing
Variant h
Get ComAddItem of hoItems "Task+Rhombus(red)" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/7/2001" "" Nothing
Set ComItemBar of hoItems h "" OLEexBarBackgroundExt to "none[(100%-11,50%-6,11,11),back=0x10000FF]"
Set ComItemBar of hoItems h "" OLEexBarBackgroundExtInflate to ",,5"
Get ComAddItem of hoItems "Rhombus(red)+Task" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/8/2001" "" Nothing
Set ComItemBar of hoItems h "" OLEexBarBackgroundExt to "none[(0,50%-6,11,11),back=0x10000FF]"
Set ComItemBar of hoItems h "" OLEexBarBackgroundExtInflate to "-5"
Get ComAddItem of hoItems "Task(yellow)+Rhombus(blue)" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/9/2001" "" Nothing
Set ComItemBar of hoItems h "" OLEexBarBackgroundExt to "none[(100%-11,50%-6,11,11),back=0x1FF0000]"
Set ComItemBar of hoItems h "" OLEexBarBackgroundExtInflate to ",,5"
Set ComItemBar of hoItems h "" OLEexBarColor to 65535
Get ComAddItem of hoItems "Rhombus(blue)+Task(yellow)" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/8/2001" "" Nothing
Set ComItemBar of hoItems h "" OLEexBarBackgroundExt to "none[(0,50%-6,11,11),back=0x1FF0000]"
Set ComItemBar of hoItems h "" OLEexBarBackgroundExtInflate to "-5"
Set ComItemBar of hoItems h "" OLEexBarColor to 65535
Get ComAddItem of hoItems "TriangleUp(white)+Task" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/7/2001" "" Nothing
Set ComItemBar of hoItems h "" OLEexBarBackgroundExt to "none[(0,50%-6,11,11),back=0x2FFFFFF]"
Set ComItemBar of hoItems h "" OLEexBarBackgroundExtInflate to "-5"
Get ComAddItem of hoItems "TriangleUp(blue)+Task(magenta)+TriangleDown(red)" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" "" Nothing
Set ComItemBar of hoItems h "" OLEexBarBackgroundExt to "none[(0,50%-6,11,11),back=0x02FF0000],none[(100%-11,50%-6,11,11),back=0x030000FF]"
Set ComItemBar of hoItems h "" OLEexBarBackgroundExtInflate to "-5,0,5,0"
Set ComItemBar of hoItems h "" OLEexBarColor to 16744703
Get ComAddItem of hoItems "Rhombus+Task+TriangleDown" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/7/2001" "" Nothing
Set ComItemBar of hoItems h "" OLEexBarBackgroundExt to "none[(0,50%-6,11,11),back=0x01FF0000],none[(100%-11,50%-6,11,11),back=0x030000FF]"
Set ComItemBar of hoItems h "" OLEexBarBackgroundExtInflate to "-5, 0,5,0"
Set ComItemBar of hoItems h "" OLEexBarColor to 16744448
Get ComAddItem of hoItems "Rhombus+Task+TriangleDown" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/8/2001" "" Nothing
Set ComItemBar of hoItems h "" OLEexBarBackgroundExt to "none[(50%-6,0,11,11),back=0x01FF0000],none[(50%-6,100%-11,11,11),back=0x010000FF]"
Set ComItemBar of hoItems h "" OLEexBarBackgroundExtInflate to "0,-5,0,5"
Get ComAddItem of hoItems "Task+Star" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/9/2001" "" Nothing
Set ComItemBar of hoItems h "" OLEexBarBackgroundExt to "none[(100%-11,0,11,11),back=0x4FFFFFF]"
Set ComItemBar of hoItems h "" OLEexBarBackgroundExtInflate to 5
Get ComAddItem of hoItems "Star+Task" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/8/2001" "" Nothing
Set ComItemBar of hoItems h "" OLEexBarBackgroundExt to "none[(0,100%-11,11,11),back=0x04FFFFFF]"
Set ComItemBar of hoItems h "" OLEexBarBackgroundExtInflate to 5
Get ComAddItem of hoItems "Task+Star" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/7/2001" "" Nothing
Set ComItemBar of hoItems h "" OLEexBarBackgroundExt to "none[(100%-11,0,11,11),back=0x4FFFFFF]"
Set ComItemBar of hoItems h "" OLEexBarBackgroundExtInflate to "0,-6,14"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1732
|
I am using the ItemBar(exBarFrameColor) to display an additional EBN on the current bar. The problem is that I still need a black frame around the bar. How can I achieve that
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAADhABXMIQAAYAQGKIYBkAKBQAGaAoDDWDoMAANAyjPBMKgBBCLAACaKQAD6CYQRhFT7yGAERr/C6EQLhGBRQCULQxDCBMIjLJoWhsASVRhnCBBRhwAI7ShPUBgXBNCQzICTJJkSJZBiECIJFAaJhnIapZDKGKQWCjAgiNpqGQ2QiKFC2HAcEAxCxGJBoKKZGq2bpJQLbdxUXRVZzpNi7Louay5CrOCZvXxaeAXDa+Az5ODDMRwLBcKhzCKDYzfdrZFaWFT3Qi8aCvG6sbw/HZ0OrEEIwCEBA" to Nothing
Get ComAdd of hoAppearance 2 "CP:1 0 0 5 0" to Nothing
Get ComAdd of hoAppearance 3 "gBFLBCJwBAEHhEJAADhABUEIQAAYAQGKIYBkAKBQAGaAoDDWDoMAANAyjPBMKgBBCLIxhEYobgmGIaRiBMIxAKIZhzEgYRoiAYhXDiHwxARHUgRfIEOwHDiBZomWKZEiaKIqRrLMryFLMZx3CqcAApGaqHiOCYlSbTcoyfJYZBzD6mKJpWipWheW48U7PVRDJSkNysASZIyrGKqJouX4WR7BcZgNR4YBgEoWRouSBLWrgNIVR6/eBABZFPzbNK3ZzdOIIJgEgIA=" to Nothing
Set ComRenderType of hoAppearance to -16777216
Send Destroy to hoAppearance
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 164
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComColor of hoBar to |CI$3ff0000
Send Destroy to hoBar
Send Destroy to hoBars
Variant voBars1
Get ComBars of hoChart to voBars1
Handle hoBars1
Get Create (RefClass(cComBars)) to hoBars1
Set pvComObject of hoBars1 to voBars1
Variant voBar1
Get ComCopy of hoBars1 "Task" "NewTask" to voBar1
Handle hoBar1
Get Create (RefClass(cComBar)) to hoBar1
Set pvComObject of hoBar1 to voBar1
Set ComHeight of hoBar1 to 15
Send Destroy to hoBar1
Send Destroy to hoBars1
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" Nothing Nothing
Send ComAddBar of hoItems h "NewTask" "1/8/2001" "1/12/2001" "new" Nothing
Get ComAddItem of hoItems "Task+Rhombus" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" Nothing Nothing
Set ComItemBar of hoItems h "" OLEexBarFrameColor to 33554432
Send ComAddBar of hoItems h "NewTask" "1/8/2001" "1/12/2001" "new" Nothing
Set ComItemBar of hoItems h "new" OLEexBarFrameColor to 33554432
Get ComAddItem of hoItems "Task/Color+Rhombus" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" Nothing Nothing
Set ComItemBar of hoItems h "" OLEexBarFrameColor to 33554687
Set ComItemBar of hoItems h "" OLEexBarColor to 65280
Send ComAddBar of hoItems h "NewTask" "1/8/2001" "1/12/2001" "new" Nothing
Set ComItemBar of hoItems h "new" OLEexBarFrameColor to 33554687
Set ComItemBar of hoItems h "new" OLEexBarColor to 65280
Get ComAddItem of hoItems "Task/Color+Rhombus/Color" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" Nothing Nothing
Set ComItemBar of hoItems h "" OLEexBarFrameColor to 33619712
Set ComItemBar of hoItems h "" OLEexBarColor to 16711935
Send ComAddBar of hoItems h "NewTask" "1/8/2001" "1/12/2001" "new" Nothing
Set ComItemBar of hoItems h "new" OLEexBarFrameColor to 33619712
Set ComItemBar of hoItems h "new" OLEexBarColor to 16711935
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1731
|
I am using EBN objects to show my bars, but when apply a color to the EBN looks darker. Is it possible to get the same color brightness
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAADhABWkIQAAYAQGKIYBkAKBQAGaAoDDWDoMAANAyjPBMKgBBCLAACaKQAD6CYQRhFT7yGAERr/C6EZBGABYJDUMAlCyNQBQSKIYxnAgYY4ACZ5IjqAwLQjQEYzZI0SxJCqQZBBCCSQKkYx0HScRijDILBQwIQmaqjEZoJCiQZfQLCAYRMhkQx9DKTLRtKhYDqubpHUZbdwWRaVYTlM6RLbhGy7YqefJtXLfN4WZgWCz9QLDI4wS78JruaqOW5hVz4BasfTrOzLcTzG4HLhCCYBgI" to Nothing
Get ComAdd of hoAppearance 2 "CP:1 -6 0 0 0" to Nothing
Set ComRenderType of hoAppearance to -16777216
Send Destroy to hoAppearance
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 164
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" Nothing Nothing
Get ComAddItem of hoItems "Task+Rhombus" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" Nothing Nothing
Set ComItemBar of hoItems h "" OLEexBarFrameColor to 33554432
Get ComAddItem of hoItems "Task/Color+Rhombus" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" Nothing Nothing
Set ComItemBar of hoItems h "" OLEexBarFrameColor to 33554687
Set ComItemBar of hoItems h "" OLEexBarColor to 65280
Get ComAddItem of hoItems "Task/Color+Rhombus/Color" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" Nothing Nothing
Set ComItemBar of hoItems h "" OLEexBarFrameColor to 33619712
Set ComItemBar of hoItems h "" OLEexBarColor to 16711935
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1730
|
The ItemBar(exBarColor) changes the color for margins, and there is no exBarStartColor/exBarEndColor. However in my case I would then like do dynamically change the bar color to a different color without changing the start shape color
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAADhABWkIQAAYAQGKIYBkAKBQAGaAoDDWDoMAANAyjPBMKgBBCLAACaKQAD6CYQRhFT7yGAERr/C6EZBGABYJDUMAlCyNQBQSKIYxnAgYY4ACZ5IjqAwLQjQEYzZI0SxJCqQZBBCCSQKkYx0HScRijDILBQwIQmaqjEZoJCiQZfQLCAYRMhkQx9DKTLRtKhYDqubpHUZbdwWRaVYTlM6RLbhGy7YqefJtXLfN4WZgWCz9QLDI4wS78JruaqOW5hVz4BasfTrOzLcTzG4HLhCCYBgI" to Nothing
Get ComAdd of hoAppearance 2 "CP:1 -6 0 0 0" to Nothing
Send Destroy to hoAppearance
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 164
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" Nothing Nothing
Get ComAddItem of hoItems "Task+Rhombus" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" Nothing Nothing
Set ComItemBar of hoItems h "" OLEexBarFrameColor to 33554432
Get ComAddItem of hoItems "Task/Color+Rhombus" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" Nothing Nothing
Set ComItemBar of hoItems h "" OLEexBarFrameColor to 33554432
Set ComItemBar of hoItems h "" OLEexBarColor to 65280
Get ComAddItem of hoItems "Task/Color+Rhombus/Color" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" Nothing Nothing
Set ComItemBar of hoItems h "" OLEexBarFrameColor to 33619712
Set ComItemBar of hoItems h "" OLEexBarColor to 16711935
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1729
|
The ItemBar(exBarColor) changes the color for margins, and there is no exBarStartColor/exBarEndColor. However in my case I would then like do dynamically change the bar color to a different color without changing the end shape color
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAADhABXMIQAAYAQGKIYBkAKBQAGaAoDDWDoMAANAyjPBMKgBBCLAACaKQAD6CYQRhFT7yGAERr/C6EQLhGBRQCULQxDCBMIjLJoWhsASVRhnCBBRhwAI7ShPUBgXBNCQzICTJJkSJZBiECIJFAaJhnIapZDKGKQWCjAgiNpqGQ2QiKFC2HAcEAxCxGJBoKKZGq2bpJQLbdxUXRVZzpNi7Louay5CrOCZvXxaeAXDa+Az5ODDMRwLBcKhzCKDYzfdrZFaWFT3Qi8aCvG6sbw/HZ0OrEEIwCEBA" to Nothing
Get ComAdd of hoAppearance 2 "CP:1 0 0 6 0" to Nothing
Send Destroy to hoAppearance
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 164
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" Nothing Nothing
Get ComAddItem of hoItems "Task+Rhombus" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" Nothing Nothing
Set ComItemBar of hoItems h "" OLEexBarFrameColor to 33554432
Get ComAddItem of hoItems "Task/Color+Rhombus" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" Nothing Nothing
Set ComItemBar of hoItems h "" OLEexBarFrameColor to 33554432
Set ComItemBar of hoItems h "" OLEexBarColor to 65280
Get ComAddItem of hoItems "Task/Color+Rhombus/Color" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" Nothing Nothing
Set ComItemBar of hoItems h "" OLEexBarFrameColor to 33619712
Set ComItemBar of hoItems h "" OLEexBarColor to 16711935
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1728
|
Is it possible to resize a column with the mouse without changing the width of the next column
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComColumnAutoResize to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Column 1" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComWidth of hoColumn to 256
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 "Column 2" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComWidth of hoColumn1 to 512
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Set ComDrawGridLines to OLEexAllLines
Send ComEndUpdate
End_Procedure
|
|
1727
|
How can I align captions of items with checkbox, with items with no checkbox
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellImages of hoItems (ComAddItem(hoItems,0)) 0 to "1"
Set ComCellHasCheckBox of hoItems (ComAddItem(hoItems,1)) 0 to True
Set ComCellImages of hoItems (ComAddItem(hoItems,2)) 0 to "1"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1726
|
How can I show each group header ( not-subroup ), with a different background color, while alternate background colors for inside items
// Occurs after a new Group Item has been inserted to Items collection.
Procedure OnComAddGroupItem HITEM llItem
Forward Send OnComAddGroupItem llItem
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems llItem "Summary" (ComCellValue(hoItems,llItem,2)) (ComCellValue(hoItems,llItem,4)) Nothing Nothing
Send ComDefineSummaryBars of hoItems llItem "" -3 ""
Send Destroy to hoItems
End_Procedure
// Occurs after a new Item has been inserted to Items collection.
Procedure OnComAddItem HITEM llItem
Forward Send OnComAddItem llItem
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Send ComAddBar of hoItems1 llItem "Task" (ComCellValue(hoItems1,llItem,2)) (ComCellValue(hoItems1,llItem,4)) Nothing Nothing
Send Destroy to hoItems1
End_Procedure
// Occurs when column's position or column's size is changed.
Procedure OnComLayoutChanged
Forward Send OnComLayoutChanged
Send ComRefresh
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "9/1/1994"
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComPaneWidth of hoChart1 False to 312
Send Destroy to hoChart1
Set ComBackColorSortBar to (ComBackColor(Self))
Set ComColumnAutoResize to False
Variant rs
Get Comcreateobject "ADOR.Recordset" to rs
Send ComOpen "Orders" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb" OLEadOpenStatic OLEadLockOptimistic Nothing
Set ComDataSource to rs
Variant voItems2
Get ComItems to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Set ComAllowCellValueToItemBar of hoItems2 to True
Send Destroy to hoItems2
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComItem of hoColumns 2 to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 1
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComItem of hoColumns1 4 to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 2
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Set ComSortBarVisible to True
Set ComSortBarCaption to "Drag a <b>column</b> header here to group by that column."
Set ComAllowGroupBy to True
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn2
Get ComItem of hoColumns2 1 to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Set ComSortOrder of hoColumn2 to OLESortAscending
Send Destroy to hoColumn2
Send Destroy to hoColumns2
Variant voColumns3
Get ComColumns to voColumns3
Handle hoColumns3
Get Create (RefClass(cComColumns)) to hoColumns3
Set pvComObject of hoColumns3 to voColumns3
Variant voColumn3
Get ComAdd of hoColumns3 "Position" to voColumn3
Handle hoColumn3
Get Create (RefClass(cComColumn)) to hoColumn3
Set pvComObject of hoColumn3 to voColumn3
Set ComFormatColumn of hoColumn3 to "(0:= (1 rpos '')) right ( ( 1:= ( =:0 rfind `.` ) ) != -1 ? =:1 : len(=:0))"
Set ComVisible of hoColumn3 to False
Send Destroy to hoColumn3
Send Destroy to hoColumns3
Variant voColumns4
Get ComColumns to voColumns4
Handle hoColumns4
Get Create (RefClass(cComColumns)) to hoColumns4
Set pvComObject of hoColumns4 to voColumns4
Variant voColumn4
Get ComAdd of hoColumns4 "Position" to voColumn4
Handle hoColumn4
Get Create (RefClass(cComColumn)) to hoColumn4
Set pvComObject of hoColumn4 to voColumn4
Set ComFormatColumn of hoColumn4 to "(1 rpos '') contains '.'"
Set ComVisible of hoColumn4 to False
Send Destroy to hoColumn4
Send Destroy to hoColumns4
Variant voConditionalFormats
Get ComConditionalFormats to voConditionalFormats
Handle hoConditionalFormats
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
Set pvComObject of hoConditionalFormats to voConditionalFormats
Variant voConditionalFormat
Get ComAdd of hoConditionalFormats "(%C13 mod 2) != 0" Nothing to voConditionalFormat
Handle hoConditionalFormat
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
Set pvComObject of hoConditionalFormat to voConditionalFormat
Set ComBackColor of hoConditionalFormat to (RGB(240,240,240))
Send Destroy to hoConditionalFormat
Send Destroy to hoConditionalFormats
Variant voConditionalFormats1
Get ComConditionalFormats to voConditionalFormats1
Handle hoConditionalFormats1
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats1
Set pvComObject of hoConditionalFormats1 to voConditionalFormats1
Variant voConditionalFormat1
Get ComAdd of hoConditionalFormats1 "%C14 = 0" Nothing to voConditionalFormat1
Handle hoConditionalFormat1
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat1
Set pvComObject of hoConditionalFormat1 to voConditionalFormat1
Set ComBackColor of hoConditionalFormat1 to (RGB(190,190,190))
Send Destroy to hoConditionalFormat1
Send Destroy to hoConditionalFormats1
Send ComEndUpdate
End_Procedure
|
|
1725
|
What is the difference between %0 and %C0, when using in expressions ( format, conditional format, computed fields, and so on )
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart True to 0
Send Destroy to hoChart
Set ComHeaderAppearance to OLEEtched
Set ComHeaderHeight to 24
Set ComScrollBySingleLine to True
Set ComDrawGridLines to OLEexRowLines
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Value" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellValueFormat to 1
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 "FormatColumn = `%0` ~ CellValue" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComFormatColumn of hoColumn1 to "%0"
Set ComDef of hoColumn1 OLEexCellSingleLine to False
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn2
Get ComAdd of hoColumns2 "FormatColumn = `%C0`~ CellCaption" to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Set ComFormatColumn of hoColumn2 to "%C0"
Set ComDef of hoColumn2 OLEexCellSingleLine to False
Send Destroy to hoColumn2
Send Destroy to hoColumns2
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems 1.1234 to Nothing
Set ComCellValueFormat of hoItems (ComAddItem(hoItems,"<sha ;;0>This <fgcolor=FF0000>is a <s><b>HTM</fgcolor>L</b> text</s>.")) 0 to OLEexHTML
Variant voEditor
Get ComCellEditor of hoItems (ComAddItem(hoItems,3)) Nothing to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComEditType of hoEditor to OLECheckListType
Send ComAddItem of hoEditor 1 "Border" Nothing
Send ComAddItem of hoEditor 2 "Thick" Nothing
Send ComAddItem of hoEditor 4 "Shadow" Nothing
Send Destroy to hoEditor
Set ComFormatCell of hoItems (ComAddItem(hoItems,10000)) 0 to "`<b>` + currency(value)"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1724
|
How can I alternate colors for each group header ( not-subroup ), with a different background color, while items of the same group showing with a different color
// Occurs after a new Group Item has been inserted to Items collection.
Procedure OnComAddGroupItem HITEM llItem
Forward Send OnComAddGroupItem llItem
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems llItem "Summary" (ComCellValue(hoItems,llItem,2)) (ComCellValue(hoItems,llItem,4)) Nothing Nothing
Send ComDefineSummaryBars of hoItems llItem "" -3 ""
Send Destroy to hoItems
End_Procedure
// Occurs after a new Item has been inserted to Items collection.
Procedure OnComAddItem HITEM llItem
Forward Send OnComAddItem llItem
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Send ComAddBar of hoItems1 llItem "Task" (ComCellValue(hoItems1,llItem,2)) (ComCellValue(hoItems1,llItem,4)) Nothing Nothing
Send Destroy to hoItems1
End_Procedure
// Occurs when column's position or column's size is changed.
Procedure OnComLayoutChanged
Forward Send OnComLayoutChanged
Send ComRefresh
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "9/1/1994"
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComPaneWidth of hoChart1 False to 312
Send Destroy to hoChart1
Set ComBackColorSortBar to (ComBackColor(Self))
Set ComColumnAutoResize to False
Variant rs
Get Comcreateobject "ADOR.Recordset" to rs
Send ComOpen "Orders" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb" OLEadOpenStatic OLEadLockOptimistic Nothing
Set ComDataSource to rs
Variant voItems2
Get ComItems to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Set ComAllowCellValueToItemBar of hoItems2 to True
Send Destroy to hoItems2
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComItem of hoColumns 2 to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 1
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComItem of hoColumns1 4 to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 2
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Set ComSortBarVisible to True
Set ComSortBarCaption to "Drag a <b>column</b> header here to group by that column."
Set ComAllowGroupBy to True
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn2
Get ComItem of hoColumns2 1 to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Set ComSortOrder of hoColumn2 to OLESortAscending
Send Destroy to hoColumn2
Send Destroy to hoColumns2
Variant voColumns3
Get ComColumns to voColumns3
Handle hoColumns3
Get Create (RefClass(cComColumns)) to hoColumns3
Set pvComObject of hoColumns3 to voColumns3
Variant voColumn3
Get ComAdd of hoColumns3 "Position" to voColumn3
Handle hoColumn3
Get Create (RefClass(cComColumn)) to hoColumn3
Set pvComObject of hoColumn3 to voColumn3
Set ComFormatColumn of hoColumn3 to "(0:= (1 rpos '')) left ( ( 1:= ( =:0 lfind `.` ) ) != -1 ? =:1 : len(=:0))"
Set ComVisible of hoColumn3 to False
Send Destroy to hoColumn3
Send Destroy to hoColumns3
Variant voColumns4
Get ComColumns to voColumns4
Handle hoColumns4
Get Create (RefClass(cComColumns)) to hoColumns4
Set pvComObject of hoColumns4 to voColumns4
Variant voColumn4
Get ComAdd of hoColumns4 "Position" to voColumn4
Handle hoColumn4
Get Create (RefClass(cComColumn)) to hoColumn4
Set pvComObject of hoColumn4 to voColumn4
Set ComFormatColumn of hoColumn4 to "(1 rpos '') contains '.'"
Set ComVisible of hoColumn4 to False
Send Destroy to hoColumn4
Send Destroy to hoColumns4
Variant voConditionalFormats
Get ComConditionalFormats to voConditionalFormats
Handle hoConditionalFormats
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
Set pvComObject of hoConditionalFormats to voConditionalFormats
Variant voConditionalFormat
Get ComAdd of hoConditionalFormats "(%C13 mod 2) != 0" Nothing to voConditionalFormat
Handle hoConditionalFormat
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
Set pvComObject of hoConditionalFormat to voConditionalFormat
Set ComBackColor of hoConditionalFormat to (RGB(240,240,240))
Send Destroy to hoConditionalFormat
Send Destroy to hoConditionalFormats
Variant voConditionalFormats1
Get ComConditionalFormats to voConditionalFormats1
Handle hoConditionalFormats1
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats1
Set pvComObject of hoConditionalFormats1 to voConditionalFormats1
Variant voConditionalFormat1
Get ComAdd of hoConditionalFormats1 "%C14 = 0" Nothing to voConditionalFormat1
Handle hoConditionalFormat1
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat1
Set pvComObject of hoConditionalFormat1 to voConditionalFormat1
Set ComBackColor of hoConditionalFormat1 to (RGB(190,190,190))
Send Destroy to hoConditionalFormat1
Send Destroy to hoConditionalFormats1
Send ComEndUpdate
End_Procedure
|
|
1723
|
How can I highlight each group header, with a different background color (method 2)
// Occurs after a new Group Item has been inserted to Items collection.
Procedure OnComAddGroupItem HITEM llItem
Forward Send OnComAddGroupItem llItem
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComItemBackColor of hoItems llItem to (RGB(190,190,190))
Send ComAddBar of hoItems llItem "Summary" (ComCellValue(hoItems,llItem,2)) (ComCellValue(hoItems,llItem,4)) Nothing Nothing
Send ComDefineSummaryBars of hoItems llItem "" -3 ""
Send Destroy to hoItems
End_Procedure
// Occurs after a new Item has been inserted to Items collection.
Procedure OnComAddItem HITEM llItem
Forward Send OnComAddItem llItem
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Send ComAddBar of hoItems1 llItem "Task" (ComCellValue(hoItems1,llItem,2)) (ComCellValue(hoItems1,llItem,4)) Nothing Nothing
Send Destroy to hoItems1
End_Procedure
// Occurs when column's position or column's size is changed.
Procedure OnComLayoutChanged
Forward Send OnComLayoutChanged
Send ComRefresh
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "9/1/1994"
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComPaneWidth of hoChart1 False to 312
Send Destroy to hoChart1
Set ComBackColorSortBar to (ComBackColor(Self))
Set ComColumnAutoResize to False
Variant rs
Get Comcreateobject "ADOR.Recordset" to rs
Send ComOpen "Orders" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb" OLEadOpenStatic OLEadLockOptimistic Nothing
Set ComDataSource to rs
Variant voItems2
Get ComItems to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Set ComAllowCellValueToItemBar of hoItems2 to True
Send Destroy to hoItems2
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComItem of hoColumns 2 to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 1
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComItem of hoColumns1 4 to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 2
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Set ComSortBarVisible to True
Set ComSortBarCaption to "Drag a <b>column</b> header here to group by that column."
Set ComAllowGroupBy to True
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn2
Get ComItem of hoColumns2 1 to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Set ComSortOrder of hoColumn2 to OLESortAscending
Send Destroy to hoColumn2
Send Destroy to hoColumns2
Send ComEndUpdate
End_Procedure
|
|
1722
|
How can I highlight each group header ( not-subroup ), with a different background color (method 1)
// Occurs after a new Group Item has been inserted to Items collection.
Procedure OnComAddGroupItem HITEM llItem
Forward Send OnComAddGroupItem llItem
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems llItem "Summary" (ComCellValue(hoItems,llItem,2)) (ComCellValue(hoItems,llItem,4)) Nothing Nothing
Send ComDefineSummaryBars of hoItems llItem "" -3 ""
Send Destroy to hoItems
End_Procedure
// Occurs after a new Item has been inserted to Items collection.
Procedure OnComAddItem HITEM llItem
Forward Send OnComAddItem llItem
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Send ComAddBar of hoItems1 llItem "Task" (ComCellValue(hoItems1,llItem,2)) (ComCellValue(hoItems1,llItem,4)) Nothing Nothing
Send Destroy to hoItems1
End_Procedure
// Occurs when column's position or column's size is changed.
Procedure OnComLayoutChanged
Forward Send OnComLayoutChanged
Send ComRefresh
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "9/1/1994"
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComPaneWidth of hoChart1 False to 312
Send Destroy to hoChart1
Set ComBackColorSortBar to (ComBackColor(Self))
Set ComColumnAutoResize to False
Variant rs
Get Comcreateobject "ADOR.Recordset" to rs
Send ComOpen "Orders" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb" OLEadOpenStatic OLEadLockOptimistic Nothing
Set ComDataSource to rs
Variant voItems2
Get ComItems to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Set ComAllowCellValueToItemBar of hoItems2 to True
Send Destroy to hoItems2
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComItem of hoColumns 2 to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 1
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComItem of hoColumns1 4 to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 2
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Set ComSortBarVisible to True
Set ComSortBarCaption to "Drag a <b>column</b> header here to group by that column."
Set ComAllowGroupBy to True
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn2
Get ComItem of hoColumns2 1 to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Set ComSortOrder of hoColumn2 to OLESortAscending
Send Destroy to hoColumn2
Send Destroy to hoColumns2
Variant voColumns3
Get ComColumns to voColumns3
Handle hoColumns3
Get Create (RefClass(cComColumns)) to hoColumns3
Set pvComObject of hoColumns3 to voColumns3
Variant voColumn3
Get ComAdd of hoColumns3 "Position" to voColumn3
Handle hoColumn3
Get Create (RefClass(cComColumn)) to hoColumn3
Set pvComObject of hoColumn3 to voColumn3
Set ComFormatColumn of hoColumn3 to "(0:= (1 rpos '')) left ( ( 1:= ( =:0 lfind `.` ) ) != -1 ? =:1 : len(=:0))"
Set ComVisible of hoColumn3 to False
Send Destroy to hoColumn3
Send Destroy to hoColumns3
Variant voColumns4
Get ComColumns to voColumns4
Handle hoColumns4
Get Create (RefClass(cComColumns)) to hoColumns4
Set pvComObject of hoColumns4 to voColumns4
Variant voColumn4
Get ComAdd of hoColumns4 "Position" to voColumn4
Handle hoColumn4
Get Create (RefClass(cComColumn)) to hoColumn4
Set pvComObject of hoColumn4 to voColumn4
Set ComFormatColumn of hoColumn4 to "(1 rpos '') contains '.'"
Set ComVisible of hoColumn4 to False
Send Destroy to hoColumn4
Send Destroy to hoColumns4
Variant voConditionalFormats
Get ComConditionalFormats to voConditionalFormats
Handle hoConditionalFormats
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
Set pvComObject of hoConditionalFormats to voConditionalFormats
Variant voConditionalFormat
Get ComAdd of hoConditionalFormats "%C14 = 0" Nothing to voConditionalFormat
Handle hoConditionalFormat
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
Set pvComObject of hoConditionalFormat to voConditionalFormat
Set ComBackColor of hoConditionalFormat to (RGB(190,190,190))
Send Destroy to hoConditionalFormat
Send Destroy to hoConditionalFormats
Send ComEndUpdate
End_Procedure
|
|
1721
|
The BackColorAlternate displays each second row with a different background color. Is it possible to apply a different background color, for each sub-tree, ConditionalFormats, Add
// Occurs when column's position or column's size is changed.
Procedure OnComLayoutChanged
Forward Send OnComLayoutChanged
Send ComRefresh
End_Procedure
// Fired when the control sorts a column.
Procedure OnComSort
Forward Send OnComSort
Send ComRefresh
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComLinesAtRoot to OLEexLinesAtRoot
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "P1" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellHasCheckBox to True
Set ComPartialCheck of hoColumn to True
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart True to 0
Send Destroy to hoChart
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 "P2" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDef of hoColumn1 OLEexCellHasCheckBox to True
Set ComPartialCheck of hoColumn1 to True
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root 1" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Set ComExpandItem of hoItems h to True
Get ComAddItem of hoItems "Root 2" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Set ComExpandItem of hoItems h to True
Get ComAddItem of hoItems "Root 2" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn2
Get ComAdd of hoColumns2 "Position" to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Set ComFormatColumn of hoColumn2 to "(0:= (1 rpos '')) left ( ( 1:= ( =:0 lfind `.` ) ) != -1 ? =:1 : len(=:0))"
Set ComVisible of hoColumn2 to False
Send Destroy to hoColumn2
Send Destroy to hoColumns2
Variant voConditionalFormats
Get ComConditionalFormats to voConditionalFormats
Handle hoConditionalFormats
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
Set pvComObject of hoConditionalFormats to voConditionalFormats
Variant voConditionalFormat
Get ComAdd of hoConditionalFormats "(%C2 mod 2) != 0" Nothing to voConditionalFormat
Handle hoConditionalFormat
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
Set pvComObject of hoConditionalFormat to voConditionalFormat
Set ComBackColor of hoConditionalFormat to (RGB(240,240,240))
Send Destroy to hoConditionalFormat
Send Destroy to hoConditionalFormats
Send ComEndUpdate
End_Procedure
|
|
1720
|
The BackColorAlternate displays each second row with a different background color. Is it possible to apply a different background color, for 2nd, 3rd, 4th, row, and so on
// Occurs after a new Item has been inserted to Items collection.
Procedure OnComAddItem HITEM llItem
Forward Send OnComAddItem llItem
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems llItem "Task" (ComCellValue(hoItems,llItem,2)) (ComCellValue(hoItems,llItem,4)) Nothing Nothing
Send Destroy to hoItems
End_Procedure
// Occurs when column's position or column's size is changed.
Procedure OnComLayoutChanged
Forward Send OnComLayoutChanged
Send ComRefresh
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "9/1/1994"
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComPaneWidth of hoChart1 False to 312
Send Destroy to hoChart1
Set ComColumnAutoResize to False
Variant rs
Get Comcreateobject "ADOR.Recordset" to rs
Send ComOpen "Orders" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb" OLEadOpenStatic OLEadLockOptimistic Nothing
Set ComDataSource to rs
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComAllowCellValueToItemBar of hoItems1 to True
Send Destroy to hoItems1
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComItem of hoColumns 2 to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 1
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComItem of hoColumns1 4 to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 2
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn2
Get ComItem of hoColumns2 1 to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Set ComSortOrder of hoColumn2 to OLESortAscending
Send Destroy to hoColumn2
Send Destroy to hoColumns2
Variant voColumns3
Get ComColumns to voColumns3
Handle hoColumns3
Get Create (RefClass(cComColumns)) to hoColumns3
Set pvComObject of hoColumns3 to voColumns3
Variant voColumn3
Get ComAdd of hoColumns3 "Position" to voColumn3
Handle hoColumn3
Get Create (RefClass(cComColumn)) to hoColumn3
Set pvComObject of hoColumn3 to voColumn3
Set ComFormatColumn of hoColumn3 to "1 apos ''"
Set ComVisible of hoColumn3 to False
Send Destroy to hoColumn3
Send Destroy to hoColumns3
Variant voConditionalFormats
Get ComConditionalFormats to voConditionalFormats
Handle hoConditionalFormats
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
Set pvComObject of hoConditionalFormats to voConditionalFormats
Variant voConditionalFormat
Get ComAdd of hoConditionalFormats "(%C13 mod 5) = 1" Nothing to voConditionalFormat
Handle hoConditionalFormat
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
Set pvComObject of hoConditionalFormat to voConditionalFormat
Set ComBackColor of hoConditionalFormat to (RGB(128,128,128))
Send Destroy to hoConditionalFormat
Send Destroy to hoConditionalFormats
Variant voConditionalFormats1
Get ComConditionalFormats to voConditionalFormats1
Handle hoConditionalFormats1
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats1
Set pvComObject of hoConditionalFormats1 to voConditionalFormats1
Variant voConditionalFormat1
Get ComAdd of hoConditionalFormats1 "(%C13 mod 5) = 2" Nothing to voConditionalFormat1
Handle hoConditionalFormat1
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat1
Set pvComObject of hoConditionalFormat1 to voConditionalFormat1
Set ComBackColor of hoConditionalFormat1 to (RGB(164,164,164))
Send Destroy to hoConditionalFormat1
Send Destroy to hoConditionalFormats1
Variant voConditionalFormats2
Get ComConditionalFormats to voConditionalFormats2
Handle hoConditionalFormats2
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats2
Set pvComObject of hoConditionalFormats2 to voConditionalFormats2
Variant voConditionalFormat2
Get ComAdd of hoConditionalFormats2 "(%C13 mod 5) = 3" Nothing to voConditionalFormat2
Handle hoConditionalFormat2
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat2
Set pvComObject of hoConditionalFormat2 to voConditionalFormat2
Set ComBackColor of hoConditionalFormat2 to (RGB(190,190,190))
Send Destroy to hoConditionalFormat2
Send Destroy to hoConditionalFormats2
Variant voConditionalFormats3
Get ComConditionalFormats to voConditionalFormats3
Handle hoConditionalFormats3
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats3
Set pvComObject of hoConditionalFormats3 to voConditionalFormats3
Variant voConditionalFormat3
Get ComAdd of hoConditionalFormats3 "(%C13 mod 5) = 4" Nothing to voConditionalFormat3
Handle hoConditionalFormat3
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat3
Set pvComObject of hoConditionalFormat3 to voConditionalFormat3
Set ComBackColor of hoConditionalFormat3 to (RGB(240,240,240))
Send Destroy to hoConditionalFormat3
Send Destroy to hoConditionalFormats3
Send ComEndUpdate
End_Procedure
|
|
1719
|
The BackColorAlternate displays each second row with a different background color. The question I have it is possible to apply a different background color for 3rd, 4th, row, and so on
// Occurs after a new Item has been inserted to Items collection.
Procedure OnComAddItem HITEM llItem
Forward Send OnComAddItem llItem
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems llItem "Task" (ComCellValue(hoItems,llItem,2)) (ComCellValue(hoItems,llItem,4)) Nothing Nothing
Send Destroy to hoItems
End_Procedure
// Occurs when column's position or column's size is changed.
Procedure OnComLayoutChanged
Forward Send OnComLayoutChanged
Send ComRefresh
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "9/1/1994"
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComPaneWidth of hoChart1 False to 312
Send Destroy to hoChart1
Set ComColumnAutoResize to False
Variant rs
Get Comcreateobject "ADOR.Recordset" to rs
Send ComOpen "Orders" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb" OLEadOpenStatic OLEadLockOptimistic Nothing
Set ComDataSource to rs
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComAllowCellValueToItemBar of hoItems1 to True
Send Destroy to hoItems1
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComItem of hoColumns 2 to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 1
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComItem of hoColumns1 4 to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 2
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn2
Get ComItem of hoColumns2 1 to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Set ComSortOrder of hoColumn2 to OLESortAscending
Send Destroy to hoColumn2
Send Destroy to hoColumns2
Variant voColumns3
Get ComColumns to voColumns3
Handle hoColumns3
Get Create (RefClass(cComColumns)) to hoColumns3
Set pvComObject of hoColumns3 to voColumns3
Variant voColumn3
Get ComAdd of hoColumns3 "Position" to voColumn3
Handle hoColumn3
Get Create (RefClass(cComColumn)) to hoColumn3
Set pvComObject of hoColumn3 to voColumn3
Set ComFormatColumn of hoColumn3 to "1 apos ''"
Set ComVisible of hoColumn3 to False
Send Destroy to hoColumn3
Send Destroy to hoColumns3
Variant voConditionalFormats
Get ComConditionalFormats to voConditionalFormats
Handle hoConditionalFormats
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
Set pvComObject of hoConditionalFormats to voConditionalFormats
Variant voConditionalFormat
Get ComAdd of hoConditionalFormats "(%C13 mod 4) = 0" Nothing to voConditionalFormat
Handle hoConditionalFormat
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
Set pvComObject of hoConditionalFormat to voConditionalFormat
Set ComBackColor of hoConditionalFormat to (RGB(240,240,240))
Send Destroy to hoConditionalFormat
Send Destroy to hoConditionalFormats
Send ComEndUpdate
End_Procedure
|
|
1718
|
The BackColorAlternate looks fine for flat tables, but how about using it when displaying a hierarchy/tree, like grouping rows. The sample alternate colors for each group found
// Occurs after a new Group Item has been inserted to Items collection.
Procedure OnComAddGroupItem HITEM llItem
Forward Send OnComAddGroupItem llItem
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems llItem "Summary" (ComCellValue(hoItems,llItem,2)) (ComCellValue(hoItems,llItem,4)) Nothing Nothing
Send ComDefineSummaryBars of hoItems llItem "" -3 ""
Send Destroy to hoItems
End_Procedure
// Occurs after a new Item has been inserted to Items collection.
Procedure OnComAddItem HITEM llItem
Forward Send OnComAddItem llItem
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Send ComAddBar of hoItems1 llItem "Task" (ComCellValue(hoItems1,llItem,2)) (ComCellValue(hoItems1,llItem,4)) Nothing Nothing
Send Destroy to hoItems1
End_Procedure
// Occurs when column's position or column's size is changed.
Procedure OnComLayoutChanged
Forward Send OnComLayoutChanged
Send ComRefresh
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "9/1/1994"
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComPaneWidth of hoChart1 False to 312
Send Destroy to hoChart1
Set ComBackColorSortBar to (ComBackColor(Self))
Set ComColumnAutoResize to False
Variant rs
Get Comcreateobject "ADOR.Recordset" to rs
Send ComOpen "Orders" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb" OLEadOpenStatic OLEadLockOptimistic Nothing
Set ComDataSource to rs
Variant voItems2
Get ComItems to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Set ComAllowCellValueToItemBar of hoItems2 to True
Send Destroy to hoItems2
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComItem of hoColumns 2 to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 1
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComItem of hoColumns1 4 to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 2
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Set ComSortBarVisible to True
Set ComSortBarCaption to "Drag a <b>column</b> header here to group by that column."
Set ComAllowGroupBy to True
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn2
Get ComItem of hoColumns2 1 to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Set ComSortOrder of hoColumn2 to OLESortAscending
Send Destroy to hoColumn2
Send Destroy to hoColumns2
Variant voColumns3
Get ComColumns to voColumns3
Handle hoColumns3
Get Create (RefClass(cComColumns)) to hoColumns3
Set pvComObject of hoColumns3 to voColumns3
Variant voColumn3
Get ComAdd of hoColumns3 "Position" to voColumn3
Handle hoColumn3
Get Create (RefClass(cComColumn)) to hoColumn3
Set pvComObject of hoColumn3 to voColumn3
Set ComFormatColumn of hoColumn3 to "(0:= (1 rpos '')) left ( ( 1:= ( =:0 lfind `.` ) ) != -1 ? =:1 : len(=:0))"
Set ComVisible of hoColumn3 to False
Send Destroy to hoColumn3
Send Destroy to hoColumns3
Variant voConditionalFormats
Get ComConditionalFormats to voConditionalFormats
Handle hoConditionalFormats
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
Set pvComObject of hoConditionalFormats to voConditionalFormats
Variant voConditionalFormat
Get ComAdd of hoConditionalFormats "(%C13 mod 2) != 0" Nothing to voConditionalFormat
Handle hoConditionalFormat
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
Set pvComObject of hoConditionalFormat to voConditionalFormat
Set ComBackColor of hoConditionalFormat to (RGB(240,240,240))
Send Destroy to hoConditionalFormat
Send Destroy to hoConditionalFormats
Send ComEndUpdate
End_Procedure
|
|
1717
|
How do I show the chart's labels in 24-hour clock format
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 0
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComLevelCount of hoChart to 3
Variant voLevel
Get ComLevel of hoChart 0 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComLabel of hoLevel to "<%mmm%> <%d%>, <%yyyy%>"
Set ComAlignment of hoLevel to (OLEexHOutside + OLECenterAlignment)
Set ComUnit of hoLevel to OLEexDay
Send Destroy to hoLevel
Variant voLevel1
Get ComLevel of hoChart 1 to voLevel1
Handle hoLevel1
Get Create (RefClass(cComLevel)) to hoLevel1
Set pvComObject of hoLevel1 to voLevel1
Set ComLabel of hoLevel1 to "<b><%h%>:00</b>"
Set ComAlignment of hoLevel1 to OLECenterAlignment
Set ComUnit of hoLevel1 to OLEexHour
Set ComDrawTickLines of hoLevel1 to True
Set ComDrawGridLines of hoLevel1 to True
Send Destroy to hoLevel1
Variant voLevel2
Get ComLevel of hoChart 2 to voLevel2
Handle hoLevel2
Get Create (RefClass(cComLevel)) to hoLevel2
Set pvComObject of hoLevel2 to voLevel2
Set ComLabel of hoLevel2 to "<%nn%>"
Set ComUnit of hoLevel2 to OLEexMinute
Set ComCount of hoLevel2 to 15
Send Destroy to hoLevel2
Send ComScrollTo of hoChart "1/1/2001 8:30:00 AM" 0
Send Destroy to hoChart
End_Procedure
|
|
1716
|
How do I show the chart's labels in 12-hour clock format
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 0
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComLevelCount of hoChart to 3
Variant voLevel
Get ComLevel of hoChart 0 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComLabel of hoLevel to "<%mmm%> <%d%>, <%yyyy%>"
Set ComAlignment of hoLevel to (OLEexHOutside + OLECenterAlignment)
Set ComUnit of hoLevel to OLEexDay
Send Destroy to hoLevel
Variant voLevel1
Get ComLevel of hoChart 1 to voLevel1
Handle hoLevel1
Get Create (RefClass(cComLevel)) to hoLevel1
Set pvComObject of hoLevel1 to voLevel1
Set ComLabel of hoLevel1 to "<b><%h%>:00</b> <%AM/PM%>"
Set ComAlignment of hoLevel1 to OLECenterAlignment
Set ComUnit of hoLevel1 to OLEexHour
Set ComDrawTickLines of hoLevel1 to True
Set ComDrawGridLines of hoLevel1 to True
Send Destroy to hoLevel1
Variant voLevel2
Get ComLevel of hoChart 2 to voLevel2
Handle hoLevel2
Get Create (RefClass(cComLevel)) to hoLevel2
Set pvComObject of hoLevel2 to voLevel2
Set ComLabel of hoLevel2 to "<%nn%>"
Set ComUnit of hoLevel2 to OLEexMinute
Set ComCount of hoLevel2 to 15
Send Destroy to hoLevel2
Send ComScrollTo of hoChart "1/1/2001 8:30:00 AM" 0
Send Destroy to hoChart
End_Procedure
|
|
1715
|
I would like to avoid manual typing in the date-cell because user often type wrong things (no decimal points and so on) and so the todays-date is generated for the cell. What can be done
// Occurs when the user presses and releases an ANSI key.
Procedure OnComKeyPress Short llKeyAscii
Forward Send OnComKeyPress llKeyAscii
Showln "if .Editying != 0 then" (ComEditing(Self))
Move 0 to KeyAscii
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Variant voColumn
Get ComAdd of hoColumns "Start" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 1
Variant voEditor
Get ComEditor of hoColumn to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComEditType of hoEditor to OLEDateType
Send Destroy to hoEditor
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "End" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 2
Variant voEditor1
Get ComEditor of hoColumn1 to voEditor1
Handle hoEditor1
Get Create (RefClass(cComEditor)) to hoEditor1
Set pvComObject of hoEditor1 to voEditor1
Set ComEditType of hoEditor1 to OLEDateType
Send Destroy to hoEditor1
Send Destroy to hoColumn1
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "9/20/2006"
Set ComAllowLinkBars of hoChart to True
Set ComAllowCreateBar of hoChart to OLEexNoCreateBar
Set ComLevelCount of hoChart to 2
Set ComPaneWidth of hoChart False to 196
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComAllowCellValueToItemBar of hoItems to True
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "9/21/2006" "9/24/2006" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "9/22/2006" "9/25/2006" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 3")) "Task" "9/23/2006" "9/26/2006" Nothing Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1714
|
When a Day, Week etc is clicked how can we make it centre/zoom the chart to cover all the bars
// Occurs once the user selects a new time scale unit in the overview zoom area.
Procedure OnComOverviewZoom
Forward Send OnComOverviewZoom
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Send ComScrollTo of hoChart "1/1/2001" 1
Showln "Start" (ComStartPrintDate(hoChart))
Showln "End" (ComEndPrintDate(hoChart))
Send Destroy to hoChart
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComPaneWidth of hoChart1 False to 128
Set ComLevelCount of hoChart1 to 2
Set ComOverviewVisible of hoChart1 to OLEexOverviewShowAllVisible
Set ComAllowOverviewZoom of hoChart1 to OLEexAlwaysZoom
Set ComLabel of hoChart1 OLEexSecond to ""
Set ComLabel of hoChart1 OLEexMinute to ""
Set ComLabel of hoChart1 OLEexHour to ""
Set ComUnitScale of hoChart1 to OLEexDay
Send ComScrollTo of hoChart1 "1/1/2001" 1
Send ComMarkTimeZone of hoChart1 "zone" "1/1/2001" "1/2/2001" 10516548 Nothing
Send Destroy to hoChart1
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "12/15/2000" "1/10/2001" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 2")) "Task" "1/1/2001" "1/5/2001" Nothing Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1713
|
The first time we run the application, the day label headers looks different then pressing Week and then Day again on the control's overview part. How do we make to show the header in the same format
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 128
Set ComLevelCount of hoChart to 2
Set ComOverviewVisible of hoChart to OLEexOverviewShowAllVisible
Set ComAllowOverviewZoom of hoChart to OLEexAlwaysZoom
Set ComLabel of hoChart OLEexSecond to ""
Set ComLabel of hoChart OLEexMinute to ""
Set ComLabel of hoChart OLEexHour to ""
Set ComUnitScale of hoChart to OLEexDay
Send Destroy to hoChart
End_Procedure
|
|
1712
|
How to sort numerically by columns
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Numeric" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComSortType of hoColumn to OLESortNumeric
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems 1 to Nothing
Get ComAddItem of hoItems 2 to Nothing
Get ComAddItem of hoItems 12 to Nothing
Get ComAddItem of hoItems 22 to Nothing
Send Destroy to hoItems
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComItem of hoColumns1 0 to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComSortOrder of hoColumn1 to OLESortAscending
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Send ComEndUpdate
End_Procedure
|
|
1711
|
The control does not ensure the item to fit the control's client area once the user clicks the cell's button or check box. What can be done
// Occurs when the user presses a mouse button.
Procedure OnComMouseDown Short llButton Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY
Forward Send OnComMouseDown llButton llShift llX llY
// Items.EnsureVisibleItem(ItemFromPoint(-1,-1,c,hit))
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComTreeColumnIndex to -1
Set ComSelForeColor to (ComForeColor(Self))
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Buttons" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComAlignment of hoColumn to OLECenterAlignment
Set ComDef of hoColumn OLEexCellHasButton to True
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "Button A" to Nothing
Get ComAddItem of hoItems "Button B" to Nothing
Get ComAddItem of hoItems "Button C" to Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1710
|
How do I arrange the levels when the user changes the scale using the control's overview part
// Occurs once the user selects a new time scale unit in the overview zoom area.
Procedure OnComOverviewZoom
Forward Send OnComOverviewZoom
Variant v
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Get ComUnitScale of hoChart to v
Send Destroy to hoChart
Showln v
Send ComEnsureVisibleColumn 0
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Variant voLevel
Get ComLevel of hoChart1 0 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComDrawTickLines of hoLevel to OLEexLevelNoLine
Send Destroy to hoLevel
Send ComScrollTo of hoChart1 "11/18/2015" 1
Send Destroy to hoChart1
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart2
Get ComChart to voChart2
Handle hoChart2
Get Create (RefClass(cComChart)) to hoChart2
Set pvComObject of hoChart2 to voChart2
Set ComFirstVisibleDate of hoChart2 to "11/18/2015"
Set ComPaneWidth of hoChart2 False to 0
Set ComLevelCount of hoChart2 to 2
Set ComDrawLevelSeparator of hoChart2 to OLEexLevelSolidLine
Variant voLevel1
Get ComLevel of hoChart2 0 to voLevel1
Handle hoLevel1
Get Create (RefClass(cComLevel)) to hoLevel1
Set pvComObject of hoLevel1 to voLevel1
Set ComAlignment of hoLevel1 to (OLEexHOutside + OLECenterAlignment)
Set ComDrawTickLines of hoLevel1 to OLEexLevelSolidLine
Variant v1
Get ComBackColor to v1
Set ComBackColor of hoLevel1 to v1
Send Destroy to hoLevel1
Variant voLevel2
Get ComLevel of hoChart2 1 to voLevel2
Handle hoLevel2
Get Create (RefClass(cComLevel)) to hoLevel2
Set pvComObject of hoLevel2 to voLevel2
Set ComDrawTickLines of hoLevel2 to (OLEexLevelMiddleLine + OLEexLevelDotLine)
Send ComDrawTickLinesFrom of hoLevel2 0 OLEexLevelSolidLine
Send Destroy to hoLevel2
Set ComOverviewVisible of hoChart2 to OLEexOverviewShowAllVisible
Set ComAllowOverviewZoom of hoChart2 to OLEexAlwaysZoom
Set ComUnitWidth of hoChart2 to 24
Set ComLabel of hoChart2 OLEexSecond to ""
Set ComLabel of hoChart2 OLEexMinute to ""
Set ComLabel of hoChart2 OLEexHour to ""
Set ComLabel of hoChart2 OLEexWeek to ""
Set ComLabel of hoChart2 OLEexDay to "<|><%d%><|><%d3%>, <%m3%> <%d%>, '<%yy%><|><%dddd%>, <%mmmm%> <%d%>, <%yyyy%><||><||>4096"
Set ComUnitScale of hoChart2 to OLEexDay
Send ComScrollTo of hoChart2 (ComFirstVisibleDate(hoChart2)) 1
Send Destroy to hoChart2
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Send ComEndUpdate
End_Procedure
|
|
1709
|
I am using AllowGroupBy, the question is it is possible to add summary bars for child item, when user do grouping
// Occurs after a new Group Item has been inserted to Items collection.
Procedure OnComAddGroupItem HITEM llItem
Forward Send OnComAddGroupItem llItem
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems llItem "Summary" (ComCellValue(hoItems,llItem,2)) (ComCellValue(hoItems,llItem,4)) Nothing Nothing
Send ComDefineSummaryBars of hoItems llItem "" -3 ""
Send Destroy to hoItems
End_Procedure
// Occurs after a new Item has been inserted to Items collection.
Procedure OnComAddItem HITEM llItem
Forward Send OnComAddItem llItem
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Send ComAddBar of hoItems1 llItem "Task" (ComCellValue(hoItems1,llItem,2)) (ComCellValue(hoItems1,llItem,4)) Nothing Nothing
Send Destroy to hoItems1
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "9/1/1994"
Send Destroy to hoChart
Set ComBackColorSortBar to (ComBackColor(Self))
Set ComColumnAutoResize to False
Variant rs
Get Comcreateobject "ADOR.Recordset" to rs
Send ComOpen "Orders" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb" OLEadOpenStatic OLEadLockOptimistic Nothing
Set ComDataSource to rs
Set ComSortBarVisible to True
Set ComSortBarCaption to "Drag a <b>column</b> header here to group by that column."
Set ComAllowGroupBy to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComItem of hoColumns 1 to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComSortOrder of hoColumn to OLESortAscending
Send Destroy to hoColumn
Send Destroy to hoColumns
Send ComEndUpdate
End_Procedure
|
|
1708
|
I noticed that when grouping on a field, its details are always expanded. Is it possible to show collapsed by default (method 3)
// Occurs after a new Item has been inserted to Items collection.
Procedure OnComAddItem HITEM llItem
Forward Send OnComAddItem llItem
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems llItem "Task" (ComCellValue(hoItems,llItem,2)) (ComCellValue(hoItems,llItem,4)) Nothing Nothing
Send Destroy to hoItems
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "9/1/1994"
Send Destroy to hoChart
Set ComBackColorSortBar to (ComBackColor(Self))
Set ComColumnAutoResize to False
Variant rs
Get Comcreateobject "ADOR.Recordset" to rs
Send ComOpen "Orders" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb" OLEadOpenStatic OLEadLockOptimistic Nothing
Set ComDataSource to rs
Set ComSortBarVisible to True
Set ComSortBarCaption to "Drag a <b>column</b> header here to group by that column."
Set ComAllowGroupBy to True
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComShowCollapsedBars of hoChart1 to True
Send Destroy to hoChart1
Send ComEndUpdate
Set ComLayout to "multiplesort="C1:1";collapse="0-9999""
End_Procedure
|
|
1707
|
I noticed that when grouping on a field, its details are always expanded. Is it possible to show collapsed by default (method 2)
// Occurs after a new Item has been inserted to Items collection.
Procedure OnComAddItem HITEM llItem
Forward Send OnComAddItem llItem
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems llItem "Task" (ComCellValue(hoItems,llItem,2)) (ComCellValue(hoItems,llItem,4)) Nothing Nothing
Send Destroy to hoItems
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "9/1/1994"
Send Destroy to hoChart
Set ComBackColorSortBar to (ComBackColor(Self))
Set ComColumnAutoResize to False
Variant rs
Get Comcreateobject "ADOR.Recordset" to rs
Send ComOpen "Orders" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb" OLEadOpenStatic OLEadLockOptimistic Nothing
Set ComDataSource to rs
Set ComSortBarVisible to True
Set ComSortBarCaption to "Drag a <b>column</b> header here to group by that column."
Set ComAllowGroupBy to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComItem of hoColumns 1 to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComSortOrder of hoColumn to OLESortAscending
Send Destroy to hoColumn
Send Destroy to hoColumns
Send ComEndUpdate
Send ComBeginUpdate
Send ComEnsureVisibleColumn 0
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComExpandItem of hoItems1 0 to False
Send Destroy to hoItems1
Send ComEndUpdate
End_Procedure
|
|
1706
|
I noticed that when grouping on a field, its details are always expanded. Is it possible to show collapsed by default (method 1)
// Occurs after a new Group Item has been inserted to Items collection.
Procedure OnComAddGroupItem HITEM llItem
Forward Send OnComAddGroupItem llItem
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComExpandItem of hoItems llItem to False
Send Destroy to hoItems
End_Procedure
// Occurs after a new Item has been inserted to Items collection.
Procedure OnComAddItem HITEM llItem
Forward Send OnComAddItem llItem
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Send ComAddBar of hoItems1 llItem "Task" (ComCellValue(hoItems1,llItem,2)) (ComCellValue(hoItems1,llItem,4)) Nothing Nothing
Send Destroy to hoItems1
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "9/1/1994"
Send Destroy to hoChart
Set ComBackColorSortBar to (ComBackColor(Self))
Set ComColumnAutoResize to False
Variant rs
Get Comcreateobject "ADOR.Recordset" to rs
Send ComOpen "Orders" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb" OLEadOpenStatic OLEadLockOptimistic Nothing
Set ComDataSource to rs
Set ComSortBarVisible to True
Set ComSortBarCaption to "Drag a <b>column</b> header here to group by that column."
Set ComAllowGroupBy to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComItem of hoColumns 1 to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComSortOrder of hoColumn to OLESortAscending
Send Destroy to hoColumn
Send Destroy to hoColumns
Send ComEndUpdate
End_Procedure
|
|
1705
|
Is there a possibility to expand / collapse all groups (or group by group) at runtime with a method (equivalent to pressing the + or - button in the group header)
// Occurs after a new Item has been inserted to Items collection.
Procedure OnComAddItem HITEM llItem
Forward Send OnComAddItem llItem
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems llItem "Task" (ComCellValue(hoItems,llItem,2)) (ComCellValue(hoItems,llItem,4)) Nothing Nothing
Send Destroy to hoItems
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "9/1/1994"
Send Destroy to hoChart
Set ComBackColorSortBar to (ComBackColor(Self))
Set ComColumnAutoResize to False
Variant rs
Get Comcreateobject "ADOR.Recordset" to rs
Send ComOpen "Orders" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb" OLEadOpenStatic OLEadLockOptimistic Nothing
Set ComDataSource to rs
Set ComSortBarVisible to True
Set ComSortBarCaption to "Drag a <b>column</b> header here to group by that column."
Set ComAllowGroupBy to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComItem of hoColumns 1 to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComSortOrder of hoColumn to OLESortAscending
Send Destroy to hoColumn
Send Destroy to hoColumns
Send ComEndUpdate
Send ComEnsureVisibleColumn 0
Send ComBeginUpdate
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComExpandItem of hoItems1 (ComRootItem(hoItems1,0)) to False
Set ComExpandItem of hoItems1 (ComRootItem(hoItems1,1)) to False
Set ComExpandItem of hoItems1 (ComRootItem(hoItems1,2)) to False
Send Destroy to hoItems1
Send ComEndUpdate
End_Procedure
|
|
1704
|
Is there a possibility to expand / collapse all groups (or group by group) at runtime with a method (equivalent to pressing the + or - button in the group header)
// Occurs after a new Item has been inserted to Items collection.
Procedure OnComAddItem HITEM llItem
Forward Send OnComAddItem llItem
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems llItem "Task" (ComCellValue(hoItems,llItem,2)) (ComCellValue(hoItems,llItem,4)) Nothing Nothing
Send Destroy to hoItems
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "9/1/1994"
Send Destroy to hoChart
Set ComBackColorSortBar to (ComBackColor(Self))
Set ComColumnAutoResize to False
Variant rs
Get Comcreateobject "ADOR.Recordset" to rs
Send ComOpen "Orders" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb" OLEadOpenStatic OLEadLockOptimistic Nothing
Set ComDataSource to rs
Set ComSortBarVisible to True
Set ComSortBarCaption to "Drag a <b>column</b> header here to group by that column."
Set ComAllowGroupBy to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComItem of hoColumns 1 to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComSortOrder of hoColumn to OLESortAscending
Send Destroy to hoColumn
Send Destroy to hoColumns
Send ComEndUpdate
Send ComBeginUpdate
Send ComEnsureVisibleColumn 0
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComExpandItem of hoItems1 (ComFirstVisibleItem(hoItems1)) to False
Send Destroy to hoItems1
Send ComEndUpdate
End_Procedure
|
|
1703
|
How can I move automatically a bar once another is moved ( non-working bars )
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComMarkSearchColumn to False
Set ComOnResizeControl to OLEexResizeChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Start" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComVisible of hoColumn to False
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn1
Get ComAdd of hoColumns2 "End" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComVisible of hoColumn1 to False
Send Destroy to hoColumn1
Send Destroy to hoColumns2
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "9/20/2006"
Set ComPaneWidth of hoChart False to 64
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComAdd of hoBars "Task:Split" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComShortcut of hoBar to "TSplit"
Set ComDef of hoBar OLEexBarKeepWorkingCount to True
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Project" to h
Set ComCellValue of hoItems h 1 to "9/22/2006"
Set ComCellValue of hoItems h 2 to "10/3/2006"
Send ComAddBar of hoItems h "Summary" (ComCellValue(hoItems,h,1)) (ComCellValue(hoItems,h,2)) Nothing Nothing
Variant h1
Get ComInsertItem of hoItems h "Task 1" to h1
Set ComCellValue of hoItems h1 1 to (ComCellValue(hoItems,h,1))
Set ComCellValue of hoItems h1 2 to "9/26/2006"
Send ComAddBar of hoItems h1 "TSplit" (ComCellValue(hoItems,h1,1)) (ComCellValue(hoItems,h1,2)) Nothing Nothing
Variant h2
Get ComInsertItem of hoItems h "Task 2" to h2
Set ComCellValue of hoItems h2 1 to (ComCellValue(hoItems,h1,2))
Set ComCellValue of hoItems h2 2 to "9/28/2006"
Send ComAddBar of hoItems h2 "TSplit" (ComCellValue(hoItems,h2,1)) (ComCellValue(hoItems,h2,2)) Nothing Nothing
Send ComAddLink of hoItems "L1" h1 "" h2 ""
Variant h3
Get ComInsertItem of hoItems h "Task 3" to h3
Set ComCellValue of hoItems h3 1 to (ComCellValue(hoItems,h2,2))
Set ComCellValue of hoItems h3 2 to (ComCellValue(hoItems,h,2))
Send ComAddBar of hoItems h3 "TSplit" (ComCellValue(hoItems,h3,1)) (ComCellValue(hoItems,h3,2)) Nothing Nothing
Send ComAddLink of hoItems "L2" h2 "" h3 ""
Send ComGroupBars of hoItems h1 "" False h2 "" True 7 Nothing
Send ComGroupBars of hoItems h2 "" False h3 "" True 7 Nothing
Send ComDefineSummaryBars of hoItems h "" h1 ""
Send ComDefineSummaryBars of hoItems h "" h2 ""
Send ComDefineSummaryBars of hoItems h "" h3 ""
Set ComExpandItem of hoItems h to True
Set ComItemBold of hoItems h to True
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1702
|
How can I get notified once the user expands a column
// Occurs when column's position or column's size is changed.
Procedure OnComLayoutChanged
Forward Send OnComLayoutChanged
Variant v
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComItem of hoColumns "C0" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Get ComExpanded of hoColumn to v
Send Destroy to hoColumn
Send Destroy to hoColumns
Showln "Column-Expanded" v
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComShowFocusRect to False
Set ComColumnAutoResize to False
Set ComDrawGridLines to OLEexAllLines
Set ComBackColorLevelHeader to (ComBackColor(Self))
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 "C0" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComExpandColumns of hoColumn1 to "0,1,2"
Set ComDisplayExpandButton of hoColumn1 to True
Send Destroy to hoColumn1
Get ComAdd of hoColumns1 "C1" to Nothing
Get ComAdd of hoColumns1 "C2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Cell 0.0" to h
Set ComCellValue of hoItems h 1 to "Cell 0.1"
Set ComCellValue of hoItems h 2 to "Cell 0.2"
Get ComAddItem of hoItems "Cell 1.0" to h
Set ComCellValue of hoItems h 1 to "Cell 1.1"
Set ComCellValue of hoItems h 2 to "Cell 1.2"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1701
|
I am using expandable headers, the question is how I can display the column itself, not just the child columns
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComColumnAutoResize to False
Set ComDrawGridLines to OLEexAllLines
Set ComBackColorLevelHeader to (ComBackColor(Self))
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "C0" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComExpandColumns of hoColumn to "0,1,2"
Set ComDisplayExpandButton of hoColumn to True
Send Destroy to hoColumn
Get ComAdd of hoColumns "C1" to Nothing
Get ComAdd of hoColumns "C2" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Cell 0.0" to h
Set ComCellValue of hoItems h 1 to "Cell 0.1"
Set ComCellValue of hoItems h 2 to "Cell 0.2"
Get ComAddItem of hoItems "Cell 1.0" to h
Set ComCellValue of hoItems h 1 to "Cell 1.1"
Set ComCellValue of hoItems h 2 to "Cell 1.2"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|